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IMAGINE!!! MDI'S 21 MEGABYTE HARD DISK CARD 

simply plugs into your system and is ready to run! 

The hard disk card also contains a... . 
“FREE SCSI PORT”: Tandy 1000 

А SCSI port which allows ου to tie (doisu chain) Multifunction Board 

up to seven external (peripheral) devices to your $255 


ter. 
TET INCLUDED FREE 


Direct/Assist $4995 
R/Assist $4995 Now N 
light Speed $7995 a 
SCSI Board 519009 
em YEAR 
ORDER име 800-228-0891 [ὮΝ 
305-677-8333 ow mm 
1 YEAR WARRANTY, 30 DAY MONEY BACK GUARANTEE 


i ad Micro Design International, Inc. 
ШР )— Micro Desig onal, lac 


ATU University Boulevard, Winter Park, Florida 32792 305-677-8333 telex 332559 MDII ORLUD 








From Computer Plus to YOU... 
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Tandy 200 24K 5649 
Model 600 32K 51269 
Model 100 24K 5425 


DMP-130 $269 


Tandy 3000 $1969 
Tandy 3000 HD $2699 


Color Computer II 
w/64K Ext. Basic $145 
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Tandy 4000 5685 
Tandy 4000 HD $1539 
Тапау 4200 HD 51599 


DMP-405 5160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128К 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256К 
Тапау 3000 1 Drive 512K 
Tandy 3000 HD 20 Meg. 512K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DMP-130 269.00 
Radio Shack DMP-430 559.00 
Radio Shack DWP-220 Daisy Whee 359.00 
Radio Shack ТЕР-100 Portable 229.00 
Silver Reed EXP-550P Daisy Wheel229.00 
Star 56-10 245.00 
Star SG-15 410.00 
Star 50-10 365.00 
Panasonic Ρ-1094 259.00 
Panasonic P-1092 339.00 
Toshiba 1340 439.00 
Okidata 192 375.00 
Epson LX-80 215.00 
Epson ҒХ-85 419.00 
Epson HS-80 Portable Ink Jet 339.00 


685.00 
1539.00 
1599.00 
1969.00 
2699.00 

889.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 135.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (inc. 128K & DMA) 179.00 
512K Ram Board (includes 128K) 119.00 
256K Memory Plus Expansion Brd. 155.00 
PBJ Multi-Function Board (128K) 259.00 
PBJ Multi-Function Board (256K) 279.00 
PBJ Multi-Function Board (512K) 299.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 129.00 
1200 Baud Modem Board 179.00 
RS-232 Serial Board 69.00 
Digi-Mouse/Clock Board 89.00 


Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 

Tandy CM-2 RGB Color Monitor 
Tandy CM-4 RGB Color Monitor 
Tandy VM-3 ТТІ Green Monitor 179.00 
Tandy 1200 Text Monitor Adapt. 219.00 
Tandy 1200 Color/Graphics Adapt 210.00 


129.00 
379.00 
249.00 


CALL TOLL FREE 
1-800-343-8124 


LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 

SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Modem 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 
Hayes Smartmodem 1! 300 Baud 169.00 
Hayes Smartmodem 1200 Baud 429.00 
Hayes Smartmodem 1200B 415.00 
FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10рк) 9.95 
Verbatim 5500 Plastic Box (10рк) 24.95 
Verbatim DDDD Plastic Box (10ρΚ) 29.95 
Precision 5500 Diskettes (40pk) 15.95 
Precision ОООО Diskettes (40pk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 
NEC 256K Ram Chips (set of 8) 69.00 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


52.00 


69.95 


Radio Shack software 10% off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-5195 


TRS-80 is a registered trademark of Tandy Corp. 
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Check out the software that completes their systems 


Tandy MS-DOS Software Comparison Chart 
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Menu driven 

Allows user to create integrated 
business systems 

Developed systems and data can be 
moved to multi-user environments 
Professional support available 
from the software’s authors 
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Number of digits per numeric field 
Number of files usable concurrently 


Files span multiple drives 


FEATURES: 


Full-screen facility for creating 
custom screen layouts 
Full-screen facility for creating 
custom report layouts 

Built-in field types 

(error checking) 


User-defined field types 
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— filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 


including IBM PC, IBM РС-ХТ, and 
NCR Decision Mate. 






"EB 






659 The Small Computer Company, Inc. 


-20 230 West 41st Street, Suite 1200, New York, New York 10036 


Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase |! is a trademark of Ashton-Tate. pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 
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New BIOS Solves Hard Disk Problems 


Editor: 

I recently decided to upgrade my 
Tandy 1000 with a hard disk as described 
in your magazine (“Upgrade Your Tandy 
1000” February 1986). I first tried to 
order a 20-megabyte unit frọm several of 
the mail-order houses. To my disappoint- 
ment, few said they had a unit for the 
1000 and even fewer said they could 
deliver in a timely fashion. I ended up 
purchasing and returning a unit from one 
of your advertisers. The reason I returned 
it was I could not get the system to boot 
from the hard drive, and when writing to 
it from А: ог В:, I received FCB errors. 
I called the vendor and received very 
courteous help and all indications 
pointed to correct procedures. They 
didn’t understand why I was having 
problems. Disappointed, I finally ended 
up sending it back for a refund. 

1 was determined to find out why I had 
these problems with such a simple proce- 
dure. I talked with the Western Digital 
people and the Tandy folks and found 
out my 1000 has the old ROM BIOS 
version 2.11.00 (my machine was one of 
the first ones sold) and that there is a new 
version, 2.11.01, and that the hard drive 
doesn't have a problem using it. I called 
the vendor back and asked what version 
BIOS they were using and found they 
were using 2.11.01. Thought your readers 
might like to know to check the BIOS 
version number before trying to install a 
hard disk. With the new BIOS, all things 
point to being able to use just about any 
drive on the market provided the con- 
troller fits the slot. 

Bill Kennedy 
Grafton, VA 


Canadian Club 


Editor: 

The Edmonton, Alberta, Canada 
Tandy users are pleased to announce the 
formation of a new club called the Tandy 
1000 Plus Users Association. The club 
meets on the second Monday of every 


month at 12207 124 Street, Edmonton, at 
7:00 PM. For more information, please 
phone Dexter B. Dombro at (403) 439- 
5245. The club also maintains its own, 
separate conference section on Satellite 
RBBS, dial (403) 474-5262. The confer- 
ence deals exclusively with matters of 
concern to Tandy users. 

The purpose of the club is to give all 
users a forum in which to learn and 
discuss issues that commonly affect 
Tandy users. The association is therefore 
open to all 1000, 1200, 2000 and 3000 
users. The club supports a limited free- 
ware library, has a technical advisor and 
sports a lot of enthusiasm. First time 
visitors to the club are admitted free. 

Dexter B. Dombro, President 
Tandy 1000 Plus Users Association 
Edmonton, Alberta 


Help for filePro Pros 


Editor: 

I own a Tandy 2000 with two floppy 
disk drives and use it primarily with the 
filePro 16 database management system. 

The 2000 is a very powerful computer 
and, in my mind, surpasses the IBM PC 
AT. 

I also believe filePro 16 outperforms 
dBase III and RB 5000. 

I am computerizing a dental labora- 
tory with very succesful results. How- 
ever, I have had to do a lot of "trial and 
error" operations. 

Please tell me where I can get some 
help with file Pro 16. 

Hartley Grim 
Rockville Centre, NY 


The Small Computer Company, 
Inc., publishes Smalltalk, a news- 
letter for users of filePro 16. They 
can be reached by writing 230 West 
4151 Street, New York, NY 10036 
or calling (212) 398-9290. 


It Works! 


Editor: 

In regard to a letter in the June Issue 
(“Fontastic Printing"), Tom says, “Вог- 
derlund's The Printshop does not do the 
trick." I thought the same when I first 
booted up The Printshop — no printer 
recognition. I went to sleep thinking I'd 
be returning the package (over 100 miles, 
round trip). I awoke remembering my 
DMP-130 has a mode that emulates 
IBM. I tried The Printshop again after 
setting switches 1-1 and 1-3 to on. Suc- 
cess! 

J. Stahl 
Ojo Sarco, NM 


Discover а Whole New World 
of TV Entertainment! 


User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


ее, $1519 


m Totally Automatic System With 87; -Ft. 
Dish, Receiver and Wireless Remote Control 


m Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 
U.L. 


Approved Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 








Now you can enjoy it all! 24-hour non-stop entertain- ^ grams, plus music videos, FM broadcasts and movies 
ment that you simply can't get from local TV, cable, and ^ with provision for stereo, and 24-hour news coverage 
even video tape! You'll see the hottest stars, recent ип- оп both TV and radio. It all adds up to out-of-this-world 
cut and uninterrupted movies, the ultimate in sports TWV viewing at a down-to-earth price. Come in today and 
coverage—and the best part is, there are no monthly discover how easy it is to enjoy satellite programming! 
fees to pay. You'll see exciting family-oriented pro- Includes complete installation manual. 


(817) 825-4027 


NOCONA ELECTRONICS • вох 593 • Nocona, ТХ 76255 


UPS Shipping 
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Anniversaries 


sort of turning point for a magazine. 

And, since this is РСМ% Third 
Anniversary Issue, I hope you will bear 
with me while my thoughts meander 
somewhat. 

We've been in the computer magazine 
business here at Falsoft for five years 
now. This month marks PCM's third 
year, but also marks the fifth year for 
our first publication, THE RAINBOW, 
which covers Tandy's Color Computer. 
It is an auspicious month, for sure. 

Let's look at anniversaries. Not that 
stuff about paper, crystal, diamond and 
so on, but just what anniversaries mean 
to publications. 

The first year, to my mind, means you 
have weathered the storms of starting 
out and, assuming that the publication 
is a healthy one, means you are prob- 
ably going to be around for a while. It 
is a time of real celebration — when you 
quit being a “new kid" on the block and 
become something more. 

The second year is sort of anticlimac- 
tic, as far as І am concerned. You have 
dealt with all the problems engendered 
in the startup and it is time to define 
your image. That's what we did with 
PCM — getting into MS-DOS as well 
as the portables. Remember, PCM 
started life as a publication that sup- 
ported one machine — Tandy's portable 
Model 100. 

Three years means something else 
again. It is a maturing time, and a major 
sense of accomplishment. During the 
time leading up to this third anniversary 
we have pretty much become the au- 
thority for the MS-DOS machines in 
the Tandy stable, while still being a 
major force in the portable area. 

We've done this simply because, with 


Ге: a third anniversary marks а 











your support, we've been able to grow 
and mature. We've added pages. We've 
added features. We've added top-flight 
writers. In truth, we've become the 
source of information on Tandy's com- 
puters with the exception of their TRS- 
DOS, Xenix and Color computers (and 
THE RAINBOW takes care of the CoCo). 

We expect to continue to grow. And 
we hope to continue to generate your 
support. I can't tell you how many times 
an advertiser has told me that he or she 
is continuing an ad contract because 
“your readers really support you — and 
me." Thank you. That sort of help, 
telling people you saw their ads here (or 
asking them why they don't advertise 
here), means we can afford to produce 
a bigger, better PCM for everyone! 

I know Гуе been tooting our own 
horn. But none of it would be possible 
without two groups of people. The first, 
of course, is you — our reader — who 
does so much to make life easier for us. 
Your letters of encouragement are 
welcome, your program submissions 
are our bread and butter, and your 
support of our advertisers is heartening. 

Secondly, it would be impossible to 
mention PCM without giving their due 
to the fine people at Tandy who have 
brought us these excellent machines. 
The Tandy MS-DOS computers are the 
finest on the market, and at the best 
price available. The portables are the 
shining examples in their price category. 
Where would thousands of us be with- 
out them? 

So, happy birthday, PCM! We're 
happy and growing and we look for- 
ward to you being with us in the years 
ahead! 





— Lonnie Falk 
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Each and every month, PCM 
offers an assortment of pro- 
grams for the home and office — 
utilities, business applications, 
games and more — all for the 
price of typing in the listings. 


If you're a person on the move, 
and too busy to spend time typ- 
ing lengthy listings, then PCM has 
just what you need — 

PCM ON DISK. 


PCM ON DISK 

The Falsoft Building 
P.O. Box 385 

Prospect, KY 40059 
(502) 228-4492 

To order by phone (credit card 
orders only) call (800) 847-0309, 


8 a.m. to 5 p.m. EST. For other 
inquiries call (502) 228-4492. 











PCM ON DISK provides each 
issue's MS-DOS programs ready 
to load and run with only a few 


μα. That means you get a disk 
eystrokes! 


each month for a year, 
containing all programs listed 
in that month's issue, for an 
average cost of only $8.25!* 
We think it’s worth your time to 
subscribe. 


AS AN ADDED BONUS, PCM ON 
DISK will include PCM’s portable 
computer programs, which may 
be downloaded to portables for 
those readers who have both an 
MS-DOS machine and one of 


ч *Disks for individual issues (beginnin 
Tandy's portable computers. Š 3 


with January 1986) may be ordered for 
only $12 each. 











О Full Year's Subscription (specify starting month) 
О Single Volume (specify month(s) & year) 

Name 

Address 


City State ZIP 


Payment Enclosed O 


Charge: УїзаП MasterCard O American Express O 


My Accounts Card Exp. Date 


Signature 


*Subscriptions to PCM ON DISK are $99 a year іп theUnited States. Canadian rate U.S. $115. All other countries 
U.S. $130; PCM ON DISK single copy rate is: $12 within the U.S.; U.S. $14, Canadian rate; U.S. $16, all other 
countries. Kentucky residents add 596 sales tax. All subscriptions begin with the current issue unless otherwise 
specified. Please allow 6 to 8 weeks for first copy. PCM ON DISK is not a stand-alone product. PCM magazine 
is a separate purchase. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 
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Wrapping Up Ше Workspace 


Ithough uploading files for 
Α "5" to the MS-DOS 

SIG database is probably the 
most important use of the personal 
Workspace area on Delphi, it is by no 
means the only one. The Workspace is 
connected, not just to the database, 
but to almost every other area of the 
SIG. This month, let's look at a few 
handy operations that can be per- 
formed on files that reside in the 
Workspace. 


ө The Delphi Mail feature is more 
closely connected to the Workspace 
than any other area. Every personal 
message you receive is stored there, 
lumped together in a file with a long, 
strange-looking filename and an «ΜΑΙ 
extension. You'll recognize it when 
you see it. When you begin filing mail 
messages with the FILE command, 
they, too, are stored in the Workspace 
in separate "folders." 

But this is just storage, and the files 
are readily accessible only from within 
Mail, not the Workspace. In other 
words, they have to be there; nothing 
handy at all about that. Let's look at 
some useful things we can do with a 
text file that's in the Workspace. 

We've already discussed three ways 
to upload a file. When you receive 
Mail, you can compose your responses 
offline, then upload them to the 
Workspace. Then, when in Mail, type 
SEND «filename» (as it is in your 
Workspace) and the file is grabbed 
from the Workspace and mailed — 
very handy for sending the same mes- 
sage to several people, or for a stock 
reponse to the same questions asked 
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by several people. 

Another handy feature is the “mail 
distribution" file. For instance, you 
can create a distribution file contain- 
ing the names of all your friends, or 
perhaps everyone you know who uses 
the same terminal program you do. 
Тһе usernames are listed, one to a line, 
and the file must be named with a .DIS 
extension. Type CRERTE FRIENDS 
.DIS, enter the usernames you want 
included and close the file with a ^Z. 

Now, if you have a letter you want 
to distribute widely to your friends, or 
a question about your term program, 
you can send the message to them all 
at once. In Mail, SEND the message, 
and at the "To:" prompt, enter 
@FRIENDS, or whatever you have 
named your .DIS file. 

Now, in the other direction, you can 
also save Mail message in your Work- 
space. For this, type EXTRACT <file- 
name> and the text file is copied into 
the Workspace. Surprisingly enough, 
even binary program files can be sent 
through Mail and downloaded in this 
manner. That’s right, you can share 
your programs with others without 
ever making them public. After start- 
ing to read the binary file, type ЕХ 
TRACT <filename>/NOHEADER. This 
preserves the file intact, without the 
Mail “header,” and it can then be 
downloaded with either Xmodem or 
Kermit from the Workspace. 

Φ The Conference is connected to the 
Workspace by the “LOG command. 
When you're in a conference, you can 
save a transcript of the entire conver- 
sation merely by typing “LOG <file- 
name>. The transcript is saved in your 


Workspace, terminating when you exit 
the conference or enter ZNDL DG. 

This is certainly a handy feature, 

allowing you to save entire conversa- 
tions for later review in the Workspace 
with the LIST command, or to mail to 
others to read, or even to post in the 
Forum. All you have to do is re- 
member the filename. 
Ф The Forum is closely connected to 
the Workspace for both input and 
storage. Again, you can create your 
reponses to Forum messages offline, 
conserving your online time, and 
upload those responses into your 
Workspace. In the Forum, type ADD 
<filename> and respond to the 
prompts that follow. Your message is 
pulled from your Workspace and 
posted. 

Conversely, if you’re reading a 
Forum message that interests you, 
type FILE <filename> and that mes- 
sage is stored away in your Workspace 
where you won't lose track of it. 

Unfortunately, due to a bug in the 
current version of the Forum software, 
it is not possible to reply to a message 
with REP <f i lename- But this should 
be fixed very soon. 


Though there are many other things 
you can do in your Workspace and 
with the files stored there, these are a 
few of the most useful. Next month 
we'll move on out into the database 
and investigate how to download 
some of the fantastic programs avail- 
able in the MS-DOS SIG. 


Kevin Nickols 
MS-DOS SIG Manager 
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ZUCKERBOARD PRODUCTS FOR THE TANDY 1000 


MultfuncBion Board „ага osa n Dni kiku nam $249 
Includes DMA controller chip, 512K memory, Clock/calendar with 20 year battery, 
Serial port, and Ramdisk/Print spooler software. 


Internal Hard Disk НОМ Буе. «6 since Vae er ms $529 
а а U. 5 wk seu a YS. aye $599 
Half-height. Includes controller and cables. Mounts internally, above floppy drive A. 
Requires system with DMA already installed. 


CALL TOLL-FREE TO ORDER 
CA (800) 233-6874 
(800) 222-4920 


Dr. Dr. Zucker 


it’s another 


ZUCKERIG ΑΒ» 
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ZUCKERBOARD is à Trademark of Advanced Transducer Devices, Inc. 
TANDY 1000 is a Trademark of Radio Shack, a Division of Tandy Corporation. 


All prices subject to change without notice due to fluctuations in the chip market. 


IL | [Feature — — à à t09/200/1000/1200/2000/3000 


By Dr. Leo Finkelstein, Jr. 


Converting portable BASIC 
programs to GW-BASIC just got a 
little simpler 





ne of the miseries I’ve found in writing 
programs in BASIC on my Tandy 200, 
and later converting them to the Tandy 
1000, or vice versa, is that the 200 uses 
PRINTS? statements to locate the cursor, 
while GW-BASIC uses the LOCATE state- 
ment. I wrote this short program to quickly convert values 
from one type of statement to the other. It’s designed to run 
on either the Tandy 200, or in GW-BASIC. In the case of GW- 
BASIC, it's designed for use with medium graphics resolution 
and a text width of 40 columns (modes | or 4 on the Tandy 
1000). Ci 


Leo Finkelstein, Jr. is currently a lieutenant colonel in the 
Air Force Space Command at Colorado Springs, as well 
as an adjunct associate professor of communication at the 
University of Colorado. 





The listing: 


10 'CONVERSION FROM PRINT@ TO LOCATE 

20 'BY DR. LEO FINKELSTEIN, JR. 

30 'WRITTEN 3/86 

49 ‘WILL RUN ON TANDY 200 AND IN GW BASI 


50 'CONVERTS TANDY 200 PRINT@ VALUES TO 
40 COLUMN SCREEN MODE LOCATE VALUES 
6% CLS 


12 PCM July 1986 


70 PRINT "VALUE TO INPUT IS FROM WHAT?" 
80 PRINT:PRINT "(A) PRINT@ STATEMENT" 

90 PRINT "(B) LOCATE STATEMENT" 

100 AS-INKEYS:IF A$-"" THEN 199 

110 IF A$-"A" THEN 149 

120 IF A$-"B" THEN 210 

139 GOTO 19g 

140 'DETERMINE LOCATE VALUES 

150 PRINT:INPUT "ENTER PRINT@ VALUE";P 
160 R = INT(P/4Q)+1:'DETERMINE ROW 

170 CC = P/4G-INT(P/49) 

180 C = INT(49*CC) 

190 PRINT:PRINT "PRINT@"P" EQUALS LOCATE 
"RU 3 "C 

200 GOTO 270 

210 'DETERMINE PRINT@ VALUE 

220 PRINT:PRINT "ENTER LOCATE VALUE WITH 
COMMA-E.G. 3,4" 

230 INPUT "LOCATE X,Y";R,C 

249 P = (R-1) * 49 + C 

250 PRINT:PRINT "LOCATE"R","C"EQUALS PRI 
NTQ"P 

260 GOTO 270 

270 'DETERMINE NEXT REQUEST 

289 PRINT:PRINT:PRINT "HIT [X] TO DO ANO 
THER" 

299 PRINT "HIT ANY OTHER KEY TO QUIT" 
300 AS-INKEYS$: IF A$-"" THEN 300 

310 IF AS-"X" THEN 320 ELSE END 

320 GOTO 60 PCM 
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ROMDSK. 8K or 32K CUSTOM expansion rom for 
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The SMART SPREADSHEET (With Graphics) 
The SMART SPELLCHECKER 


The SMART SYSTEM" i . Only $49.95 


*The SMART Software System includes: The Smart Data Manager, The Smart Spread- 
sheet with Graphics, and The Smart Word Processor, and can only be sold as a 
system, not as individual products. The smart Software System includes built in 
asynchronous communications and personal time management programs. 


BORLAND 


INTERNATIONAL 


Turbo Tutor $ 34.95  Superkey $ 69. 
Turbo Pascal 3.0 $ 69.95  SideKick (copy-protected) ..$ 54.95 
Turbo Pascal with 8087 .....9109.90 SideKick 
Turbo Pascal with BCD $109.90 (NOT copy-protected) ....$ 84.95 
Turbo Pascal 3.0 with Traveling SideKick 
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Turbo Database Toolbox ....$ 54.95 Traveling SideKick 
Turbo Graphix Toolbox. .....$ 54.95 with SideKick (NCP) $125.00 
Turbo Editor Toolbox ἥ Turbo Lightning $ 99.95 
Turbo Gameworks | Reflex: The Analyst $ 99.95 


ORTHO'S COMPUTERIZED GARDENING 
PUT A COMPUTER TO WORK IN 
πα YOUR GARDEN! 
MERCURY 300/ Gardening Regionalized to your zip code 
1200 MODEM ! veran ”- Over 750 plants 
Mercury 300/1200 = "С а You choose by common name, 


HAVES gtr mah 4 botanical name, height, color, 


MODEM. Uses the industry standard AT command | | | ° | soil condition, or water 
> requirements 


Set. 2 
SPECIAL ..... ' o $179.95 i Š * Also included— "Gardening Techniques,” 
a196 page book with full color 
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Ross COMPUTER SERVICES 
(816) 363-2545 NN 
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Amortization and 


Mail Call Tips 


By Bobby Ballard 


Tips and Tricks from reader mail 





14 


PCM 


he help and mail has 

been pouring in since 

the last mail call, “Tips, 

Tricks and Letters” 

(April 1986). I’ve re- 

ceived lots of great tips 
and information from a number of 
readers and I want to share them with 
you this month. 

The letters I’ve received are a great 
example of how we all benefit from 
sharing our experiences, solutions and 
questions. If you’ve found a trick or 
solution while using Desk Mate, по 
matter how small it may seem to you, 
send it in. You never know who may 
be trying to solve a problem you’ve 
already licked. Look at the great 
responses and information that follow 


Bobby Ballard is a free-lance writer 


and the owner of a computer software 
and consulting firm. He also operates 
a BBS in Brooklyn. Bobby can be 
contacted at 1207 Eighth Avenue, 
Apt. 4R, Brooklyn, NY 11215. 
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for an example of how we all benefit 
from this sharing. 

I am happy, first of all, to report 
that some of the information I gave 
you in the last mail column was in 
error. Happy because it means that 
some things I thought were impossible 
to do are, in reality, quite possible. 


Amortizing and 23 

When І last wrote on this subject, I 
was informed by Tandy Tower person- 
nel that using the spreadsheet example 
in the tutorial to amortize loans over 
23 periods or more was impossible. I 
was told this was a limitation of 
Desk Mate and no fixes were planned. 
I tried to redesign the spreadsheet and 
still couldn’t get it to work. 

The good news and truth is that you 
can amortize loans of more than 23 
periods when you use the right for- 
mula and redesign the sheet too. I 
received a number of responses to this 
problem including a copy of a letter 





from inside Tandy's Towers. Duane 
| Palmer of Carmi, Illinois, wrote di- 
rectly to the chairman of Tandy, John 
Roach, and received a polite response 
containing the answer from one of 
Tandy's Customer Relations people, 
Bob Archenhold. 

Bob writes, *To calculate more than 
23 periods for your amortization 
schedule, use the following formula: 
#RIC2*#R2C2/(1-1/EXP 
(1R3C2*2.3026*LOG(1*4R2C2))). 
This formula uses logarithms to raise 
a number to a power, with 2.3026 
being the conversion factor between 
common and natural logarithms. 

“Тһе following formula raises 
number ‘X’ to power ‘Y’: Result = 
EXP(2.3026* Y*LOG(X)). Please note 
that, when using this formula, you 
must create cells in columns long 
enough to hold the required number 
of periods. For example: to figure 48 
periods, you have to extend the selec- 
tion for the formulas to 48 cells down. 
You will see that the example in the 
manual says ‘Select from R8-R19’. 
You will have to change R19 to R56, 
or else you will get a *OERROR* 
message." 

ne point not made entirely 
ο is where to use the first 

formula. As Mr. Palmer points 
out in his accompanying letter, it is to 
go in payment column three (R8C3— 
R19C3). The second point is also 
important, as we've discussed here 
before; the columns must be increased 
in length to handle the new periods. To 
design the spreadsheet to handle 60 
periods (five years), extend the cells 
from R19 down to R67. 

I also heard from others. Michael 
Mazquiaran of Miami wrote with a 
solution that others presented too. 
While slightly different from the pre- 
vious solution, it is no less effective. 
Mr. Mazquiaran presents the follow- 
ing formula: &RIC2*R2C2/(I- 
(1+#R2C2)!-#R3C2), which is repres- 
ented by: 


| id a a ЕЕ 
Cita) 

Mr. Mazquiaran gives credit for this 
formula to the Radio Shack Financial 
Calculator (EC-4051), page 30. The 
following key applies to this formula: 
‘P’ equals Monthly payment, ‘L’ 
equals Original loan amount, ‘i’ equals 
Interest rate (on a monthly basis), and 
*n'equals Number of months (periods) 
of the loan. 


Mr. Mazquiaran is using his Tandy 
1000 to accomplish some powerful 
tasks, keeping thousands of records on 
disk using Filer. And while he's moved 
on to' other more powerful applica- 
tions for some task, he is still putting 
Desk Mate to work part time. He also 
wonders if anyone can help him track 
down the formula for determining the 
interest rate on a loan schedule when 
all other variables are known. He's got 
the other equations already worked 
out. Can anyone help? 

wo other gentlemen wrote pres- 

| enting basically the same for- 
mula that Mr. Mazquiaran 
presents above. Howard F. Rulf and 
Edward Bible, both from Wisconsin, 
sent in the following variations. First, 
Mr. Bible adds a set of parentheses to 
solve the problem: #R1C2*#R2C2/(1- 
(1/(1+#R2C2))!#R3C2) and goes оп 
to present the following as a variation: 
#R1C2*R2C2/(1-(1+#R2C2)!(- 
R3C2)) that works equally well. Mr. 
Rulf though solves the problem in a 
different way with the same results. He 
sent in the following: #R1C2*#R2C2/ 
(1-10!(-#R3C2*LOG(1+#R2C2))) to 
be used in R8C3 of the example under 
discussion. While others wrote in with 
solutions, all were the same as these 
examples or close variations. I thank 
everyone who wrote in with solutions. 

As you can see, there are a number 
of solutions available to you. It’s a 
matter of making your choice and 
plugging in the formula. I hope this 
has been of help to some of you who 
may have despaired at the prospect of 
not even being able to amortize a 
simple car loan, for example. I would 
love to hear from anyone with any 
further thoughts on these formulas 
and solutions. I think the error in the 
manual is possibly a typo, but, I 
wonder which one was intended to be 
included? 

To help you choose which formula 
to use, I did some testing and have 
included the results in Table 1. I timed 
the calculation time using each of the 
formulas and took note of any varia- 





tions in the results. The formula pres- 
ented by Bob Archenhold for Tandy 
computes a slightly different result 
than the others. It is very small and of 
little consequence for most applica- 
tions. This same formula, while the 
longest, tied for first in speed. The 
other fastest formula is the unique one 
presented by Howard F. Rulf. Take a 
look at the results in Table 1. 


The Test 

I like the equation presented by Mr. 
Rulf, personally, because it is as fast 
as the Radio Shack entry, returns 
results exactly like two of the other 
equations and uses less memory. The 
test I performed was very simple. I 
designed a table to amortize a loan 
over 60 periods and set up the interest 
cell to handle up to six digits. I then 
tracked the calculation time to amor- 
tize $100,000 at 9.25 percent annual 
financing rate for five years (60 peri- 
ods.) The times given in Table 1 аге 
from the time the last prompt, ?PERI 
ODS, is answered at the start of the first 
screen write and are given in minutes. 
Someone, after seeing the differences, 
might know why they occur. My first 
guess would be that using the LOG 
function (common to both fast formu- 
las) has an effect on speed. 

Of course, this was not a contest for 
the fastest, just a search for a solution. 
I'd say the solution is found, thanks to 
the readers. I just wanted to see which 
was fastest, if any, since I noticed it 
took quite a while to calculate my test 
example. It's nice to satisfy a little 
curiosity now and then. 


Mail Merge Too 

I am also happy to report that there 
is a way to do a mail merge with 
DeskMate, but you must purchase 
additional software. While this might 
not be the greatest news, I must admit 
the inexpensive software offered to 
solve this problem is better than hav- 
ing to buy and learn a whole new 
package just to get mail merge capa- 
bility. 
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As а result of the first mail call 
column, I received notices of two new 
software packages that are geared 
toward mail merging with Desk Mate 
files. One of the new programs, Cor- 
Mail, already available on the market, 
is being reviewed by PCM. Keep a 
watch for the review if this is a cap- 
ability you're interested in using with 
Desk Mate. Гуе yet to see Cor Mail, 
but a copy is on the way and I will give 
you more details later. 

I also heard from another gentle- 
man who is supposedly working on a 
mail merge program for Desk Mate. 
Since this product has not been com- 
pleted or released, I will not print the 
details right now. If and when this 
product becomes available, I will give 
you the details and other information 
right here in *The Integrated Desk." 

The first package, Cor Mail from 
Corwin Software, was written by 
William C. Corwin, Ph.D., and can be 
used to generate a mail merge or to 
print labels, show and suppress tele- 
phone numbers, print multiple labels, 
delete selected records and a few other 
features. The price is $30 as of this 
writing and requires GW-BASIC on a 
Tandy 1000 or 2000 and works with 
only one floppy drive. However, the 
author feels it might run well on the 
3000 and 6000 too. You might call to 
find out more about those machines. 

The flyer sent to me said, “Тһе 
program, CORMAIL.BAS, accesses 
files in Desk Mate to print mailing 
labels and to print a sequence of letters 
using a letter, CHNL TR. DOC, from Text 
and inserting an address from COR- 
WIN.FIL in the Filer automatically 
without any operator attention be- 
tween letters. The Text and Filer are 
set up in a specific but ordinary way. 
Desk Mate is then exited, BASIC is 
called, and CORMAIL.BAS is 
loaded.” The program disk contains 
sample files from Text and Filer to 
help you along. 

To find out more about Cor Май or 
to place an order, you can reach Dr. 
Corwin at Corwin Software, 10066 
West Mawman Avenue, Waukegan, IL 
60087-2431, (312) 623-4114. 

The version currently available runs 
in interpreted BASIC, with a compiled 
version planned for the near future. 
This sounds like a handy program and 
I will, as I said, let you know more 
when I see a copy running. 


Embedded Printer Codes 
I also received a great suggestion 


from Jerry Stajduhar, in New Hamp- 
shire, explaining how to embed printer 
codes into your Desk Mate files using 
the LPDRVR.SYS supplied on your 
MS-DOS diskette. The process is 
quite involved but not that difficult. 
I'll give you complete details next 
month, but if you’re interested in 
doing some poking around on your 
own, here are the basics of the process. 

As Jerry points out, “the trick to 
getting control codes into the file is on 
page 314 of the MS-DOS reference 
manual.” If you don’t have this man- 
ual, don't worry, I'll give you all the 
details and explain each step, care- 
fully, next month. 

The process is simple; instruct the 
LPDRVR.SYS software to intercept 
certain, little-used characters and 
replace them with strings that contain 
printer control codes. In order to 
make this work, you must know how 
and what codes to use on your brand 
and model of printer. While many 
printers use the same codes, many do 
not. Refer to your printer manual or 
contact the manufacturer if you need 
more information about your printer. 

The first step is to make sure that 
DEVICE=LPDRVR.SYS is in your CON- 
FIG.SYS file. Next, you add a PRINT 
CHR.DRT ZP command to your RUTO- 
EXEC .BRT file. The CHR. DRT file con- 
tains the codes to replace the old 
ASCII codes. You must create this file 
using either a BASIC program like 


Jerry sent (see the listing) or using 
EDLIN, the DOS line editor supplied 
on your MS-DOS diskette. 

When you use Jerry's program, 
make sure you name the file (answer 
the first prompt) with the same name 
as appears in your RUTDEXEC . BAT file. 
If you use EDLIN, open the file with 
the name you use іп the AUTOEXEC- 
-BAT file. In this example the name is 
CHR .DRT. I will explain both in more 
detail next month. 

Гуе only very quickly explained this 
process and І apologize for not having 
the room to cover everything every 
month. In addition, Jerry's letter got 
here just in time for me to tell you 
about it, but not in time to try out all 
the possibilities and put together some 
listings and examples. In the mean- 
time, look over your printer manual, 
fix up your work sheet amortization 
table with a new equation and look 
over the program Mr. Stajduhar sent 
in. 
In closing, let me thank everyone 
who wrote in with solutions and sug- 
gestions. I know everyone who bene- 
fits from these solutions and sugges- 
tions thanks you also. It's this type of 
participation that makes it possible for 
all of us to make the most of our 
computers and Desk Mate. If you have 
any comments, suggestions, or com- 
plaints about this month's material or 
Desk Mate in general, just write to me 
or contact me on Delphi. 0 








CLS 


25 OPEN "O",1,A$ 
3g 0=1:0$='" 


49 WHILE 0<>0 


55 ΤΕ 0-0 THEN 79 

6) Q$-Q$4CHR$ (Q) 

70 WEND 

89 PRINT41,0$; 

99 CLOSE 

100 ' BY JERRY STAJDUHAR 
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The listing: 
















29 INPUT"ENTER FILE NAME";A$ 


35 PRINT"TO TERMINATE ENTER A f" 


50 INPUT"ENTER ASCII VALUE TO DUMP TO FILE";Q 


110 ' CREATES CHR.DAT FOR LPDRVR.SYS 











BASIC’s Magnificent 
Shell Command 


By Brian H. Alsop 





ASIC has a super-power- 
ful command called 
SHELL. It can unlock the 
power of your machine. 
How would you like a 
system of menus that can 
ask questions and decide on the course 
to follow? SHELL can call BASIC pro- 








grams, commercial software pro- 
grams, assembly language programs 
or batch files. Would you like to access 
DOS commands such as SORT and DIR 
directly from BASIC? SHELL can do 
this, too. While others are struggling 
with batch files, you can have a com- 
mand system that runs circles around 
anything batch files can do. SHELL can 
do all this and more — and it’s easy. 


Background 

In the beginning there was a com- 
puter. It needed an operating system 
(OS). The purpose of the system was 
to permit simple operations without 
having to punch in hexadecimal 
numbers. Then came BASIC. Its pur- 
pose was to create programs to run. In 
the beginning they were completely 
separate. The OS couldn’t use BASIC 
commands and BASIC couldn’t use OS 
commands. This was unfortunate. 
BASIC needed at least some of the OS 
commands. At first, substitute com- 
mands such as FILES for DIR were 
created, then it became obvious more 
was needed. There came a bright idea: 
Why not let BASIC access any operat- 
ing system command? Why not also let 
it run other non-BASIC programs and 
return to BASIC where it left off? The 
SHELL command was invented. 

This story is fictional but describes 
a history that could have led to the 
current situation with MS-DOS and 
BASIC. Anyone who has used a system 





Brian Alsop is an engineer working on 
introducing personal computers into 
the engineering work environment. He 
is a pilot and holds an amateur radio 
operator’s license. Brian can be con- 
tacted at 113 Boone Rd., Trafford, PA 
15085; (412) 373-3363. 
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where АП OS commands are integral 
to BASIC (like the Radio Shack Color 
Computer) can't imagine why they 
would ever be separate. Whatever the 
reason, it's a fact. DOS commands are 
not a part of BASIC as implemented on 
Tandy 1000, 2000 or 3000 computers. 
They aren't part of BASIC on IBM PCs 
either. However, it turns out that the 
SHELL command plus the operating 
system utilities provided with the OS 
more than make up for this oversight. 


Shell Command Basics 

The syntax for the SHELL command 
is SHELL S$. Listing 1 shows a simple 
BASIC program invoking the SHELL 
command. The 5% string can be апу 
DOS command, a batch file or 
another (non-BASIC) program. When 
a SHELL is encountered, the area of 
memory BASIC occupies is protected 
(including all variables and data), the 
command specified in the 5% string is 
executed and then returns to BASIC. 
The BASIC display screen may be 
altered. 

Table | gives a listing of some useful 
SHELL strings. An example of a more 
complicated string might be SORT 
«FILE1.8SC >FILE2.ASC. This sec- 
ond string takes FILE1.ASC, sorts it in 
alphabetical order and places the 
contents in FILE2.ASC. This could be 
quite useful. If FILE1.ASC were pre- 
viously created and closed in the BASIC 
run, it could be sorted using the DOS 
assembly language sorting routine and 
then return the sorted file to BASIC. 
Since the SORT command also allows 
fields to be sorted, one could sort on 
selected fields. This gives BASIC the 
power of DOS assembly language 
commands without the mess of using 
USR functions. Listing 2 illustrates this 
application of SHELL. The output of 
the program is also given. 

Listing 3 shows how to obtain a 
sorted directory listing. It combines 
two SHELL commands in sequence. 
The program first issues a SHELL ^DIR 
>XYZ.” command. BASIC then puts 
itself on hold and DOS takes over. The 
directory is listed into Ше XYZ. The 
contents of XYZ look exactly like the 
screen listing when a DIR is issued. 
This means there are a few lines of 
header information to skip over before 
getting to the filenames. After the 
DOS command is completed, BASIC is 
reentered and continues where it left 
off. 

The program then issues a SORT 
«XYZ. >DR. command. This sorts the 
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XYZ file alphabetically into file DR. 


Because the header information and 
other directory information are pre- 
ceded by spaces, the sorting process 
puts them all at the top of the DR file. 
BASIC is then reentered. It opens file 
DR and begins reading a record at a 
time. It skips over the header informa- 
tion, retrieves the first 12 characters of 
each line and writes this filename 
extension data to the screen. 

Up to this point, life was easy — just 
issue the magic SHELL command. 
However, if you were to run one of 
these programs, you would see that the 
DOS command sometimes writes to 
the screen with its own comments. 
These commands either disappear 
with no effect on the existing BASIC 
screen or cause the screen to scroll. If 
this is a problem in a particular appli- 
cation, there is a simple solution. Save 
the screen to memory before executing 
the SHELL command and restore it on 
returning. 

Listing 4 shows the augmented 
subroutine for SHELLing. The BSAVE 
command saves the screen in file 
SCREEN.BIN and the BLOAD command 
calls it back. Тһе BSAVE command 
needs to know where to start saving 
from, how much to save and the 
filename. BSRVE begins saving at a 
memory location defined by the last 
DEF SEG command. If none is sup- 
plied, it assumes the segment that 
BASIC occupies. 

In a Tandy 1000, the text and graph- 
ics screens are located at &HB8000. 
Therefore, one must position-define 
the starting point at memory location 
&HB8000. The DEF SEG = &HB800 
performs this function. (Note: There 
seems to be one zero left off. It is not 
a mistake. BASIC inserts the extra zero 
when performing the segment reposi- 
tioning.) The filename chosen here is 
SCREEN.BIN. Other Tandy 1000 com- 
patible machines may locate mon- 
ochrome screens elsewhere in memory. 
However, their color screens usually 
start at &H B8000. 

How much memory to save depends 
on the screen mode. The appropriate 
values for ‘X’ in the augmented SHELL 
subroutine are &H1000, &H4000, 
&H4000, &H4000, &H4000, &H8000 
and &H8000 for screen modes zero 
through six, respectively. 

The next DEF SEG command returns 
to the core memory area BASIC is using 
after the BSAVE. Тһе BLOAD command 
needs to know where to load the file 
in memory and the filename. Again a 
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Table 1 

Useful DOS Commands for SHELL. 
Command Function Sample S$ 
CDN Change Directory “CD\UTILITY” 
COPY Copy a file “COPY FILE1.BAS B:FILE2.BAS” 
DATE Set Date “DATE” 
DIR Obtain Directory List “DIRA:” 
DISKCOPY Copy a Whole Disk “DISKCOPY R: “ 
ERRSE Erase a File “ERASE FILE1.ASC” 
FORMAT Format a Disk “FORMAT B: ^ 
PRINT Spool Print a File “PRINT FILE1.ASC” 
RENAME Rename a File “RENAME FILE1.ASC FILE2.ASC” 
SHIPTRAK Store HD Head ^SHIPTRRK^ 
SORT Sort a File “SORT «FILE1.R8SC >FILE2.ASC” 
TYPE Type File on Screen "TYPE FILE1.RSC^ 
TIME Set Time “TIME” 


DEF SEG =&HB8@¢ is used to define the 
starting memory location. The pre- 
viously saved screen is then loaded. A 
DEF SEG command returns to the 
BASIC program memory area. It's a 
good idea to position the cursor where 
you want it when exiting the SHELL 
subroutine. 

These examples are building blocks 
to more complicated applications. I 
use the SHELL command to build 
complex menus calling DOS com- 
mands, BASIC programs, compiled 
BASIC programs, assembly language 
programs, FORTRAN programs and 
batch files. SHELL has been useful in 
creating a hard disk database for easy 
location of files. I've even used SHELL 
to automatically back up and restore 
disk files to and from mainframe 
computers using terminal emulation 
file transfer commands. With SHELL, 
one is limited only by imagination. 

Two more complicated SHELL ex- 
amples follow. The first is a menu 
program that accesses all types of 
BASIC and non-BASIC programs. The 
second example is the hard disk file 
database program. Study them, try 
them, then go off and create your own 
applications. You'll find BASIC's 
SHELL command is simpler and more 
powerful than using batch files or 
some other lower level language. 


Menu Program 

A general menu program should 
permit a high degree of user interac- 
tion. It should be able to run programs 
and batch file sequences of all types. 
Finally, it should provide for return to 
itself on the completion of the selected 
application. With BASIC and the 
SHELL command this is all possible. 
The example also illustrates how to get 
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around the problem of executing a 
compiled BASIC program from within 
a BASIC menu. Normally, one can't call 
compiled BASIC from BASIC because 
they use the same memory area. 

Listing 5 shows a sample menu 
program. It has six choices. From the 
menu one can invoke spooler printing 
of a file, run an interpreted BASIC 
program, run a compiled BASIC pro- 
gram, generate a sorted directory 
listing using DOS commands, run a 
batch file and run an assembly lan- 
guage program. 

It is assumed that all programs exist 


on the current drive and directory. Use 
path suffixes to access programs from 
other drives and directories. 

Lines 50-190 define the program 
setup and menu. Menu creation is 
straightforward and involves a few 
PRINTs and one INPUT command. 
Once a choice is made, it is first tested 
to see if the program should end. An 
‘E’ or ‘e’ entry signifies the end of the 
program. А SYSTEM command exits 
the program. Next the value of the 
input variable X$ is determined. An ON 
εως GOSUB multiway branch is used 
to select the appropriate subroutine. 
On return from the subroutine, the 
screen is cleared and the menu rewrit- 
ten. 

The first choice presented is sending 
a file to the DOS Print program to be 
printed in the background while pro- 
gram execution continues. The pro- 
gram executes the subroutine in lines 
210-250 to do this. First the program 
prompts for the filename to spool. One 
can specify a full path and filename. 
Then the program constructs the DOS 
PRINT command by linking the file- 
name to Print and puts this string into 
5%. Next a SHELL S$ is executed. The 
operating system takes over and loads 
Print (if it is not already resident) and 


` spools the file to the printer. The Print 


program reports on what files it has in 


Listing 1: Simple SHELL Example 


1g 'This program copies a file named X.BAT to Y.BAT 


29 S$="COPY X.BAT Y.BAT" 
39 GOSUB 299 

4g END 

200 SHELL S$ 

219 RETURN 


Listing 2: File Sorting in BASIC using 
DOS SORT 


1g ' First a file with non-ordered strings is created 


2g OPEN "O", #1, "FILE1.ASC" 


30 PRINT 41, "XYQ" 
49 PRINT #1, "ABC" 
50 PRINT #1, "DEF" 
69 CLOSE 


7g S$="SORT <FILE1.ASC »FILE2.ASC" 


80 GOSUB 200 


90 OPEN "I",#1, "FILE2.ASC" 


100 IF EOF(1) THEN END 
110 LINE INPUT#1, A$ 
129 PRINT AS, 

139 GOTO 199 

149 END 

200 SHELL 59 

21) RETURN 


OUTPUT FROM LISTING 2 


ABC DEF 


XYQ 





its queue and releases control. At this 
point BASIC is reentered and the menu 
rewritten. You can continue doing 
something else while the document is 
printing. 

The second choice is running an 
interpreted BASIC program. The sub- 
routine in lines 260-270 do this. The 
process is simple. Just execute a RUN- 
“BASPROG2”. That command loads 
the program and executes it. To get 
back from BASPROG2, one must 
insert a line RUN^MENU^ іп BAS- 
PROG? to return to this Menu pro- 
gram. This line replaces the normal 
END or SYSTEM line in BASPROG2. 

BASPROG2 can do anything in- 
cluding specifying more menu choices. 
I use this extensively to permit others 
in the household to get to their pro- 
grams without having to remember 
filenames. They just select menu 
choices. If the RUN"BRSPRDG2^ com- 
mand is preceded by a SHELL com- 
mand redefining the directory, multi- 
ple users could automatically be sent 
to their directory before accessing any 
files. Returning to the main menu in 
this case would require a SHELL “cd\ 
“ line followed by a RUN “MENU” line 
— assuming Menu was in the root 
directory. 

The third choice is running a com- 
piled BASIC program. The subroutine 
in lines 280-330 shows how. There are 
many of these programs on the market 
today. Public domain bulletin boards 
are loaded with them. Even some 
commercial software programs are 
written in compiled BASIC. These 
programs typically have an extension 
of EXE. The difficulty in accessing 
them via interpreted BASIC is that they 
both need the same work space. This 
memory conflict can easily be resolved 
by exiting BASIC, loading the program 
and reloading the interpreted BASIC 
menu program on completion. The 
easiest way to accomplish this is to 
create a batch file. In this case, the 
name is BAT1.BAT. The batch file is 
then SHELLed. The first line in the 
batch file is the compiled BASIC pro- 
gram to be run. The second line is 
BASICA MENU. If some communication 
is needed between the programs, do it 
via files. 

The fourth choice is obtaining a 
sorted directory. This subroutine is in 
lines 340-490. It is identical to Listing 
2. The only enhancement added is the 
addition of a prompt to return to the 
menu. 


28 GOSUB: 34g 
//38 ΕΝΡ 7000 


(1/349 + THIS. ‘SUBROUTINE OBTAINS. к | SORTED DIRECTORY ТШ 


356 SHELL"DIR»XYZ." 


111370 CLS | 
1389. OPEN. "in, PU "DR." 
нн, Yel. то jii 





2111143) ТЕ 1<6 THEN 480 


2111869 PRINT. LEPTS$ (A$, 12)4" 


(480 NEXT 1. 
(11490 RETURN ' 


H ην DEF. SEG = &HBBgg. 
1:210 K SHIHA 


324 DEF SEG. 
8 SHELL 59 
84. DEF SEG = &HBB9. f 
1/1/1258: BLOAD: TBOREEN: Vgl 
Л! 260 DEF 8Еб iiini 

А, mm RETURN | 





The fifth choice is running a batch 
file. Lines 500-570 contain the com- 
mands. This example allows resetting 
of the date and time from within 
BASIC. The only difference between 
this example and the compiled BASIC 
choice is that BASIC does not have to 
be reloaded to return to it. In this 
example, the Date and Time DOS 
programs prompt for the needed 
input. This is potentially a case where 
one may want to save the BASIC screen 
before executing the SHELL. 

The sixth choice presented is run- 
ning an EXE or COM program from 
BASIC. The subroutine in lines 580-640 
show how to do this. This example 
SHELLs the DOS Debug program. 
When Debug is exited, the computer 
returns to the BASIC menu program. I 
use this type of SHELL extensively to 
create interactive pre-processors and 
post-processors for existing FORTRAN 
programs. All the input is interactively 
generated in a BASIC program and 
written to a file. The FORTRAN pro- 
gram reads the input file, runs and 
stores its output in a file. The BASIC 
program reads the file, displays it, 


Listing 3: Sorted Directory Program ή ή ni 


η ^ THIS: NOGA “OBTAINS А SORTED DIRECTORY lisTING | 


[1360 SHELL'SORT «ΧΥΖ. »DR. 888889) 


HH ή IF. 124 THEN. PRINT λβ΄ МИНЕ 


LO ТЕ/ІЕЕТ9(А5,1)-"/" ' THEN 48g 
459 ТЕ LEFT$(A$, 1)e"." THEN 489 

Ин: стеСт+1. 
Απο ТЕ CTSA THEN PRINT; hid 


ЙИШ ЙИН) jj | Listing 4: КІШІНІҢ αι Subroutine ШИН, 


| P TEXT SCREEM | 
(218 BSAVE "SCREEN. BIN", px 









plots it or whatever. Changes to the 
input can be made and the FORTRAN 
job resubmitted. It's like having the 
best of both worlds. 

Lines 650-680 contain the error 
subroutine. Only one type of error is 
specifically flagged. If a file is not 
found, an error message saying so is 
printed on Line 25. After a delay, the 
program is resumed at Line 70. Other 
errors generate no message and re- 
sume at Line 70. 

Hard Disk File Database Program 

One of the problems with a compu- 
ter is keeping track of the programs. 
If you have hard disk, this task re- 
quires super-human efforts. I needed 
a program to keep track of every file's 
location and allow me to find it — 
given a filename or partial filename. 
Also, it should be able to update itself, 
when requested, to reflect changes. 
Printed output should be available 
when requested. 

After some thought, it became ob- 
vious that SHELL was the way to do it. 
Listing 6 shows the result. The process 
is simple. Obtain sorted directory 
listing files for all directories, then 
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read these files and search for selected 
filenames or filename substrings. 
From our previous examples, we al- 
ready know how to create the sorted 
directories. All one has to do is write 
8 small program to permit reading and 
searching of the files. It turned out the 
program could also find all directory 
names, all files written on a particular 
date and all files of a particular exten- 
sion. Just tell the program the appro- 
priate substring on which to search. 
The program functions as follows. 
Lines 100-170 read the directory 
names from the DRTR statements. This 
list of directory names is terminated 
with a STOPIT as the last entry. These 
directory names are entered into array 
FF$ starting with Array Index 2. 
Array Index | is reserved for the root 
directory. One can also handle subdi- 
rectories by entering the path and 
subdirectory name (e.g., wordstar\ 
direct2). With the exception of 
subdirectories, no backslash charac- 
ters are entered (see lines 1000-1010). 
Next, these directories are put in 
alphabetical order by a call to the 


subroutine at Line 1020. Lines 200-230 
construct GF $ strings. GF $ contains the 
actual path statement and filename for 
the to-be-created DR sorted directory 
files. Lines 250-260 similarly set up 
GF $ for the root directory. 

Lines 270-570 contain the menu and 
option-selection coding. First the 
program asks in Line 320 if the direc- 
tory files are to be updated. If so, the 
program goes to the update subrou- 
tine starting at Line 810. This subrou- 
tine is very similar to that discussed 
before. The only real difference is the 
process is in a loop to generate separ- 
ate sorted directory files for all direc- 
tories. This requires a CD command to 
switch to the appropriate directory 
before generating the file. 

Line 960 returns the directory to the 
root before continuing. Assuming the 
sorted directory files DR exist, the 
program then asks if one is interested 
in searching for files in all directories 
or just one. If an ‘E’ is entered, the 
program ends. If a single directory is 
chosen, one can update just that direc- 
tory, print the sorted directory, or 


search for a file or substring. 

If all is chosen, the program allows 
searching for a particular file or sub- 
string only. Lines 580-770 do the 
searching of all DR files or the partic- 
ular directory's DR file. The BASIC 
INSTR command is used to look for 
the specified substring or filename. 
The screen output is paginated and all 
matches found are printed along with 
their file size, date and directory. The 
program returns to the menu after 
completing the search. 

That's it. The key to performing this 
was the ability to use DOS commands 
within BASIC. 


Other Applications 

To obtain the most from the SHELL 
command, become familiar with all 
the programs supplied with MS-DOS. 
Barden and others have written arti- 
cles in PCM explaining how to use 
these programs. This article should 
provide enough information to inte- 
grate other commercial programs as 
well. For starters, try writing a hard 
disk backup program to back up 
multiple diskettes of data and to 
prompt when to change diskettes. O 
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Listing 5: Menu Program 


10 ' MENU PROGRAM 

29 ' ILLUSTRATING HOW TO USE SHELL AND R 

UN COMMANDS TO 

30 ' ACCESS DOS COMMANDS, BASIC AND NON- 

BASIC PROGRAMS 

4g ' VIA MENU CONTROL 

50 ON ERROR GOTO 659 :'ERROR HANDLING RO 

UTINE 

60 'SET UP MENU 

70 KEY OFF:COLOR 0,14,0 :CLS 

80 LOCATE 3,33:PRINT "MENU CHOICES" 

90 LOCATE 5,27:PRINT "1. SEND FILE TO PR 

INT QUEUE" 

100 LOCATE 7,27:PRINT "2. RUN BASIC PROG 

RAM " 

11g LOCATE 9,27:PRINT "3. RUN COMPLIED В 

ASIC PROGRAM" 

120 LOCATE 11,27:PRINT"4. LIST SORTED DI 

RECTORY" 

130 LOCATE 13,27:РВІМТ"5. RUN BATCH FILE 

14g LOCATE 15,27:PRINT"6. RUN EXE FILE 

150 LOCATE 18,35:PRINT"E. END" 

160 LOCATE 21,27:1NPUT"MAKE CHOICE: ",X$ 

170 IF X$-"E" OR X$-"e" THEN SYSTEM 

180 ON VAL(X$) GOSUB 210,260,280,340,500 

,580 

190 GOTO 79 

200 END 

219 ' THIS SUBROUTINE SENDS A FILE TO TH 

E PRINT QUEUE. THE DOS PRINT SPOOOLER 
PROGRAM IS USED. 

229 LOCATE 25,1:INPUT"INPUT FILENAME TO 

PRINT ";X$ 

230 S$-"PRINT "+X$ 
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249 SHELL S$ 
250 RETURN 
260 ' THIS SUBROUTINE RUNS BASIC PROGRAM 
42. TO RETURN TO THIS MENU THE PROGRAM 
MUST CONTAIN A RUN "MENU". 
279  RUN"BASPROG2" 
280 ' THIS SUBROUTINE RUNS A COMPILED BA 
SIC PROGRAM. HERE A BATCH FILE MUST BE 
EXECUTED. THE BATCH FILE BAT1 CON 
TAINS ARE: 
299 ' COMPBAS1. EXE 
39g ' BASICA MENU 
319 ' THE BATCH FILE FIRST EXECUTES THE 
COMPILED BASIC PROGRAM COMPBAS1 AND 
THEN RERUNS THIS MENU PROGRAM 
320 SHELL"BATI1.BAT" 
339 SYSTEM 
340 ' THIS SUBROUTINE OBTAINS A SORTED D 
IRECTORY 
359 SHELL"DIR>FILE1.ASC" | 
360 SHELL"SORT «FILEl.ASC »FILE2.ASC"' 
370 CLS 
380 OPEN "I",#1,"FILE2.ASC" 
399 FOR 1-1 ТО 1000 
400 IF ЕОҒ(1) THEN 490 
419 INPUT #1, A$ 
429 IF I-4 THEN PRINT A$ 
439 IF I<6 THEN 489 
449 IF LEFTS(AS,1)-" " THEN 480 
450 IF LEFTS(AS$,1)-"." THEN 489 
469 PRINT LEFT$(A$,12)+" ";: CT=CT+1 
479 IF CT»4 THEN РВІМТ:СТ-й 
489 NEXT I 
499 PRINT:LOCATE 25,1:INPUT"HIT ENTER TO 
CONTINUE" , X$ : RETURN 
50) 'THIS SUBROUTINE RUNS A BATCH FILE W 





HICH UPDATES DATE AND TIME 

510 'THE BATCH FILE NAME IS DTETIM.BAT. | 
IT CONTAINS: 

529 ' DATE | 
53g ' TIME 

549 CLS 

550 SHELL"DTETIM.BAT" 

566 LOCATE 25,1:INPUT"HIT ENTER TO RETUR | 

N ",X$ 

570 RETURN 

589 ' THIS SUBROUTINE RUNS AN EXE OR COM 
FILE. EXE FILES CAN SOMETIMES BE | 

COMPILED BASIC PROGRAMS. ТЕ STRAN | 

GE THINGS HAPPEN WHEN YOU RETURN (E.G. 
599 ' DOUBLE CURSORS OR WORSE) YOUR EXE 
FILE WAS MOST LIKELY A COMPILED BASIC | 
600 ' PROGRAM. TREAT IT LIKE THE COMPIL | 
ED BASIC EXAMPLE ABOVE. 

619 CLS 

620 SHELL"DEBUG.EXE " | 
630 CLS:LOCATE 25,1:INPUT"HIT ENTER TO С 
ONTINUE ",X$ 

640 RETURN 

650 'ERROR ROUTINE 

660 IF ERR-53 THEN BEEP:LOCATE 25,1:PRIN 

T"FILE NOT FOUND" 

670 FOR I-1 TO 2000:МЕХТ 

680 RESUME 70 





Listing 6: Hard Disk File Inventory 
Program | 


10 T1$-" FINDER P 

ROGRAM" 

29 TE = 1986- B.H. ALSOP, 113 

BOONE RD., TRAFFORD, PA. 15085" 

39 ' THIS PROGRAM FINDS A FILE OR PARTIA | 

L FILE NAME, EXTENSION OR SUBSTRING IN 
A SPECIFIED DIRECTORY OR IN ALL DIR 

ECTORIES. 

49 ' SORTED DIRECTORIES OF FILES CAN BE 

PRINTED. 

50 ' THIS PROGRAM ILLUSTRATES THE USE OF 

SHELL COMMANDS TO EXECUTE DOS COMMANDS 
FROM WITHIN BASIC. THE DOS СОҚ, DI 

R, SORT AND FILE REDIRECTION COMMANDS 
ARE USED. 

60 ' UP TO 33 DIRECTORIES CAN BE HANDLED 

WITHOUT REFORMATING THE MENU. 

7) COLOR 14,1,1:KEY OFF:CLS 

89 LOCATE 1),10:РВІМТ T1$:LOCATE 14,19:P 

RINT T2$:FOR 1-1 TO 3000:МЕХТ 

99 N=34 

100 ‘DIMENSION AND READ DIRECTORY NAMES 

ΕΕΦ(1) 

110 'STOP READING WHEN "STOPIT" IS READ 

120 'PROGRAM CREATES A SORTED FILE OF DI 

RECTORY NAMES IN A FILE NAMED DR 

130 DIM FFS(N+1),GF$(N+1) 

149 FOR 1-2 TO М 

150 READ FF$(I) 

160 IF FF$(I)-"STOPIT" OR FF$(I)-"stopit 

" GOTO 199 

179 NEXT I 

189 GOSUB 1929 

199 N-I-1 

209 'ADD PATH NAMES TO FF$ AND CONSTRUCT 

STRINGS LIKE \BASIC\DR IN GF$(I) 

210 FOR I-2 ТОМ 

220 GF$(I)-"N"4FFS(I)*"NDR. " 

239 NEXT I 


280 'SET UP ROOT DIRECTORY AS FIRST ENTR | 


Y IN FF$(I) AND GF$(I) 

250 GF$(1)="DR." 

260 FF$(1)-"ROOT" 

270 'SET UP SCREEN MENU. MORE THAN 17 D 
IRECTORIES PRODUCES 2 COLUMN MENU 

289 COLOR 14,1,1:CLS 

299 IN-16 

300 LOCATE 1,28:PRINT"SORTED DIRECTORY 
PROGRAM" 

310 'UPDATES OF DIRECTORY CONTENTS ARE M 

ADE BY CHOOSING Y 

320 LOCATE 3,26:INPUT "SORT ALL DIRECTOR 
IES(Y/N)" ;UD1$ 

339 IF UDl$-"Y" OR 0019-"у" THEN 349 ELS 

E 359 

340 FOR М-1 TO N:LOCATE 15,25:PRINT"UPDA 

TING DIRECTORY "; FF$(M);:LOCATE 25,1:60 

SUB 819:NEXT M 

350 COLOR 14,1,1:CLS 

360 LOCATE 1,28:PRINT"SORTED DIRECTORY P 
ROGRAM" 

,378 LOCATE 3,1 

"389 FOR 1-1 TO N 

390 Y=2+I 

49g IF I>17 THEN DN-32 ELSE DN=9 

41g IF І>17 THEN Y-Y-17 

420 LOCATE Y,IN«DN:PRINT USING"##";1;:PR 
INT", ";FF$(1); 

439 NEXT I 

449 'PROMPT FOR DIRECTORY, E TO EXIT OR 

ALL FOR ALL DIRECTORIES 

459 LOCATE 21,5:INPUT; "CHOOSE ONE (E TO 
EXIT, ALL FOR ALL DIRECTORIES)";X$ 

469 IF X$-"E" OR X$-"e" THEN SYSTEM 

470 IF X$-"ALL" OR X$-"all" THEN GOTO 56 


p 

480 IF VAL(X$)>N OR VAL(X$)<1 THEN 450 

490 LOCATE 22,15:INPUT;"PRINT (Y/N)";LP$ 
:'PRINT OPTION 

500 IF X$-"E" OR X$-"e" THEN SYSTEM :'EX 
IT 

519 IF X$-"ALL" OR X$-"all" THEN GOTO 56 

g 

529 M-VAL(X$):1F M>N THEN GOTO 459 

530 IF UDl$-"Y" OR UD1$="y" THEN GOTO 56 
Ø ELSE LOCATE 23,15:INPUT;"UPDATE SORTED 
LISTING (Y/N)";UD$ 

54) IF UD$-"Y" OR UD$-"y" THEN GOSUB 810 
550 'PROMPT FOR FILE NAME OR PHRASE PP$ 

TO SEARCH FOR 

560 LOCATE 24,1:INPUT;"SEARCH FOR PHRASE 
(Y/N)";P$ 

57) IF P$-"Y" OR P$-"y" THEN LOCATE 24,1 
:PRINT STRING$(49," ");:LOCATE 24,1:1NPU 

T"INPUT PHRASE(ALL CAPS)";PP$ 

589 'SEARCH DR FILES FOR SUBSTRING PP$ 
599 CLS 

600 IF X$-"ALL" OR X$-"all" THEN GOTO 61 

Ø ELSE GOTO 629 

610 FOR М-1 TO N 

629 OPEN "I", #1, GF$(M) 

639 FOR 1-1 TO 1999 

640 LINE INPUT #1, А5 

650 IF 1<3 THEN GOTO 729 

660 IF P$-"Y" OR P$-"y" THEN V=INSTR(AS, 

PP$):1F V>@ THEN 679 ELSE 700 

679 PRINT " "; A$,:IF І>5 THEN PRI 

NT FF$(M) ELSE PRINT 

680 K=K+1 

699 IF LP$-"Y" OR LP$- "y" THEN LPRINT A 

$ ,FF$ (M) :K=g 

700 IF EOF(1) THEN GOTO 730 

710 IF K»29 THEN LOCATE 25,1:BEEP:INPUT; 
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Pigskin 
Predictions! 
Pro ΙΕ ΙΘΑΡΡΕΓ 


Tired of wrestling with Sunday 
point spreads? Let your Tandy 
1000/2000 do it for you! Pigskin 
Predictions, the best-selling NFL 
handicapper. takes the hassle 
out.of rating National Football 
League games. Forget about ob- 
Scure, meaningless statistics. 
Just spend a few minutes typing 
in each week's scores and let 
our point spread software go to 
work. Here's what Pigskin Pre- 
dictions has to offer: 

Ш Predicts point spreads for all games--for the current 
week and the remainder of the season. 

Ш Calculates projected won-lost records for all weeks. 

Ш Menu-driven selection of schedules, ratings, division 
races, predictions or results by team or week. Seven differ- 
ent reports to screen or printer! 

Ш Maintains home field advantage and power ratings for 
all NFL teams 

Ш 1986 Schedule data file included free. Yearly updates 
available. 

Pigskin Predictions is only $39.95 on disk. Versions also 
available for Tandy Color Computer and Commodore 
64/128. Get your copy now and be ready for the season! 





The Handicapper 





Use your Tandy 1000, 1200, 2000 or Model 100/200 to 
improve your performance at the track! Separate programs 
for Thoroughbreds, Harness horses and Greyhounds rank 
the horses or dogs in each race quickly and easily. even if 
you've never handicapped before! 

All the information you need is readily available in the 
thoroughbred Racing Form. harness or dog track program 
We even provide a chart showing you exactly where to get 
the information you need! Our software puts the savvy of a 
veteran handicapper at your fingertips. Our complete in- 
structions and wagering guide tell you how to bet. which 
races to bet and which ones to avoid—one of the real se- 
crets of winning at the track! 

Thoroughbred factors include speed. distance, past per- 
formance, weight. class, jockey s record, beaten favorite and 
post position. Harness factors include speed. post position. 
driver's record, breaking tendencies, class. parked-out signs 
and beaten favorite. Greyhound factors include speed. past 
performance, maneuvering ability. favorite box. class, kennel 
record, beaten favorite and breaking ability. 

Thoroughbred, Harness and Greyhound programs are 
sold separately. Tandy 1000, 1200 and 2000 disk versions 
are $49.95 each. any two for $74.95. all three $99.95. Thor- 
oughbred and Harness only available for Model 100/200 on 
tape at $49.95 each. both for $79.95. 


Federal Hill Software 
8134 Scotts Level Rd. adn 
Baltimore, MD 21208 

Orders 800-628-2828 Ext. 850 


Information 301-521-4886 


24 PCM July 1986 








"HIT ENTER TO CONTINUE" ;R$:K-f:CLS:LOCAT 
g 2:2 

720 NEXT I 

739 IF X$="ALL" OR X$-"all" THEN CLOSE:G 

OTO 750 

740 LOCATE 25,1:BEEP:INPUT;"HIT ENTER ТО 
CONTINUE" ,R$:CLOSE:K=9:LOCATE 1,1:CLS 
750 IF X$="ALL" OR X$-"all" THEN NEXT M 
760 IF X$="ALL" OR X$="all" THEN LOCATE 
25,1:BEEP:INPUT"HIT ENTER TO CONTINUE";R 


$ 

770 GOTO 350 

780 END 

790 'UPDATE SORTED DIRECTORY 

800 'CREATE STRING S$ WHICH CONTAINS DOS 
COMMAND TO CHANGE DIRECTORIES 

810 S$="CD\"+FF$ (M) 

820 IF М-1 THEN S$={"CD\" 

830 'EXECUTE DOS CHANGE DIRECTORY COMMAN 
D VIA SHELL WITHIN BASIC 

840 SHELL S$ 

850 'CREATE STRING S$ TO DO A DIR AND RE 

DIRECT THE CONTENTS FOR FILE XYZ 

860 S$="DIR >XYZ." 

870 ‘EXECUTE DIRECTORY COMMAND 

880 SHELL s$ 

890 ‘CREATE STING TO SORT DIRECTORY FILE 
XYZ ALPHABETICALLY INTO FILE DR 

999 SS="SORT «XYZ. >DR." 

910 'DO SORTING 

920 SHELL 55 

930 "КІШІ. INTERMEDIATE FILE XYZ 

949 KILL"XYZ." 

950 'RETURN TO ROOT DIRECTORY 

960 SHELL "CD\" 

970 UD$-"" 

980 RETURN 

990 'DATA ENTRIES CONTAIN THE LIST OF DI 
RECTORY NAMES 

1999 DATA BASIC, ΒΟΟΜΡ2, CIRCLEW, COCOUTIL, 
DESKMATE, FINANCE, FLY, FORT, LORIE, QUBIE, RT 
TY, UTILITY, WP 

1010 DATA STOPIT 

1020 'SORT DIRECTORY NAMES 

1030 FOR 1-2 TO N-1 

1040 FOR Ј-1+1 TO N 

1050 IF FF$(I)< FFS(J) THEN 1070 

1060 T$-FFS(J):FF$(J)-FF$(I):FF$(1)-T$ 
1070 NEXT J 

1080 NEXT I 
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This $5 
hardware project 


brings new life 


to old joysticks 





Joystick 





Reincarnation 


By Brian H. Alsop 





Ider joysticks have 
only one button. 
Many software 
programs appear- 
ing on the market 
today require two 
buttons per joystick. BASIC can also 
access two buttons. What do you do 


j 

i 
etia 

p 

} 








if you have older joysticks with only 
one? Reincarnation is the answer. This 
article describes how to modify older, 
single-button joysticks to make them 
functionally equivalent to newer mod- 
els. The cost is under $5. These mod- 
ifications specifically apply to the 
Tandy 1000 and Radio Shack’s 26- 
3008 joysticks. However, the idea can 
be applied to other joysticks by sub- 
stitution of appropriate connectors. 


Modification 

My joysticks are from early Tandy 
Color Computer days. They func- 
tioned correctly with the Tandy 1000 
but didn’t have the extra button. I 
priced the new joysticks and decided 
instead to modify the old ones. The 
modification turned out to be quite 
easy. 

The Tandy 1000 button and joystick 
circuitry are shown in Figure 1. The 
buttons simply ground a pin of the 
connector. This means the modifica- 
tion only requires adding a button, 
one wire and possibly a six-pin DIN 
plug. 

The parts needed are a six-pin DIN 
plug (Radio Shack #274-020); a 
normally-open, momentary pushbut- 
ton switch (Radio Shack #275-1547); 
a piece of wire about six inches longer 
than the joystick cable; and some tape. 

Proceed with the modification as 
follows. Refer to Figure 2 for gui- 
dance. The modification is far easier 
to do than to describe. 

1. Loosen the two screws holding 
joystick case together. Remove the top 
section. 





Brian Alsop is an engineer working on 
introducing personal computers into 
the engineering work environment. He 
is a pilot and holds an amateur radio 
operator s license. 
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ІНЕ PORTABLE 


3.5" MICRO FLOPPY DRIVE 
Purple Computing Model D103 


$229 with TS-DOS software for 
Model 100/200, NEC PC 8201A 
$259 with LAPDOS software for 
the ІВМ PC/XI/AT 


5299 with both 
LAPDOS and TS-DOS 
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| ОМРА TIBLE! 

ormats, data, and everything 
are completely compatible and 
interchangable with the TANDY portable 
disk drive. 


TS-DOS оп 310” diskette for your 
portable, lets you save and load files with 
a single key, or save/load all files at 
once; append files to create one file up 
to 64K; display or print files directly 
from disk; access disk files directly from 


BASIC using OPEN, PRINT #, INPUT #, 


.; occupies only 500 bytes when not in 
use and requires under 5K to run. TS- 


DOS is supported by ULTIMATE ROM II. 
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LAPDOS consists of a 5.5" diskette for 
your IBM PC/XT/AT, manual, and 
special cable adaptor which lets you 
hook our Model D103 drive to your 
IBM's serial port. LAP-DOS supports file 
conversion between: T-BASE«»DBASE II 
and IDEAeThinkTank, and can run 
RAM resident! 


@ЁА 599 PRINTER 


MADE FOR TRAVEL 


SIZE and WEIGHT are the most 
important considerations when going 
portable. This printer is half the size of 
the Model-100 and weighs less. Now 
there's no reason not to have a hard 
copy printout wherever you are. 


FEATURES 


° 2.2 lbs., size 11” x Au" x 1%”. 
е Epson МХ/80 bit-map. graphics. 
* Built-in auto self test function. 
_@ 81%” wide thermal paper. 
5 Excellent User's Manual. 
е 40/80/160 chars. Ліпе. 
* 512 byte text buffer. 
* 40 chars./sec. 


RUGGED 


Because it's thermal, there are no 
bons, no ink, no pins to wear out or 

replace, ali-yot'tieed to take 

with you is 











CACTUAL print sample? 
S88 Chars-Line. 4Η ЕЕЕ 
Ern 1 = r- = = сј ! 

underlined Emphasized' 
CONDENSED gives you 168 f 





paper. Prints over two hours on internal 
batteries and is designed to print over 

300,000 lines without maintenance—that's 
25 pages every week for over four years! 


DIRECT TO YOU 


High volume and no middle man means 
low price. We buy direct from the 
Japanese manufacturer in large quantities 
for our corporate accounts (NBC, 
PanAm, National Geographic . . . ), 
that's why we can offer it direct to you at 
this fantastic price, yet still give you 
great service and support. 


SUPPORT 


We stock paper (rolls and sheets), cables, 
and accessories for the printer. A 
complete accessory kit is only $24 and 
includes a carrying case, а 100’ roll of 
paper, and the hard-to-find 6VDC @ 
1.1Атр. A/C adaptor (saves batteries 
when A/C is handy). 


$99 GRAND TOTAL 


You get the printer and a specially made 
18" cable for your Model 100/200/600 
or NEC PC-8201A/8401, a 20' roll of 
paper, paper holder, and four "C" size 
batteries—everything you need to start 
printing immediately. 





EXPANSIONS. 


NOT “ALL-THE-SAME” 


The memory expansion products sold by 
us, our dealers, and distributors are 
made by us—here in the U.S.A. We have 
been making them since 1983 and have 
more than 50,000 memory expansion 
units in service worldwide—our dealers 
and customers tell us ours are the best. 
You could spend less or you could spend 
more, but you won't find a better 
combination of price, quality, and service 
than you will from Purple Compiiting, or 
one of our dealers. 








TANDY 600 

96K Memory Unit 

$249—two for $469 

Designed as an alternative to the 
expansion board that TANDY offers. 
Functionally identical and easy to install 
with our complete and detailed 
documentation—just open the case and 
plug it in. The basic TANDY 600 
machine will accept two of these boards, 
bringing its intemal memory up to 224K 
(contiguous). 
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MODEL 100 or NEC'PC-8201A 
8K Memory Module 
$29 ea., 3 for $79, 6 for $149 


Easy to install. Open the case and plug- 
them-in. Each module expands your 
memory by 8K bytes. Extra low power 
components mean long battery life. Very 
low profile means a proper fit in the 
NEC PC-8201A. Detailed instructions 
make installation quick and easy. You 
expand your Model 100 to 32K 
PC-8201 to 64K (2 banks of 



















TANDY 200 
24K Memory Module 
$75 ea. or two for $130 


WELD, BEAT ANY advertised price 
in this azine on the 24K Module. 


Simply pop open the hatch with a coin 
and plug in one or two of these modules. 
Each module adds a 24K bank of 
memory to the TANDY 200. It's like 
getting two more machines. The built in 
COPY function key copies files between 
banks instantly. Like our 8K, we build 
these with the lowest power and most 
reliable memory chips available. 


NEC PC-8201A 

128K RAM CARTRIDGE 

THE SIDECAR 

$259 

Plugs into side expansion slot providing 
four additional banks of 32K each. The 
case conforms to the shape of the 8201 
extending its width only 2% inches. Ап 
internal battery backs up the memory for 
Over seven years. 


STARLET (NEC PC-8401A) 
128К RAM DISK CARTRIDGE 
THE SIDESTAR 


Plugs into the side expansion slot 
providing a 128K RAM DISK that is 
formatted and used by the STARLET 
just like ἃ floppy disk drive—except it's 
hundreds of times faster, and you don't 
need a drive, cables ог A/C power. Lets 
you use 64K mode and run larger 
programs like DBASE II. The expansion 
connector lets you copy large files (up to 
124K) between disk and SIDESTAR 
using NEC Disk/Video interface. An 
internal battery backs up memory for 
Over seven years. 










at no extra charge. (Includes 
, ASM, LOAD...) 
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THE PURPLE POLICY 


Try any of our products for 30 days, 
satisfy yourself that our service, quality, 
and prices add up to the best value 
anywhere—if not completely satisfied, 
you can return the product for a full 
refund. Join our (over 20,000) satisfied 
customers. All prices include free UPS 
surface shipping, and there are no 
surcharges for VISA/MC/American 
Express—even the phone call is free. 


IT'S EASY TO ORDER 


Send your order with payment to the 
address below. Or, if you prefer, credit 
card orders can be handled by 
phone— VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales tax. 
Checks allow 3 weeks to clear. 
Institutions and Corporations call for 
purchase order approval. 


1-800-732-5012 TOLL FREE 
Orders only (8am-5pm. PST) 
In California (805) 987-4788 


For orders or customer service 


If you would like our latest product 
catalog or to find a dealer near you, 
please write or call (805) 987-4788 


m» PURPLE 
COMPUTING 


420 Constitution Ave. 
Camarillo, CA 93010 
Telex: 888661 (PURPLE) 


Canada: Canada Portable Qno 
Langley, B.C. (604) 856-885 

Australia: Softech Pede Services, 
Sydney. (2) 419-8899 


Trademarks: TS-DOS, LAPDOS, ULTIMATE ROM, ΙΡΕΑΙ, 
T-base, T-Writer—Traveling Software, Inc., 
ThinkTank—Living Videotext, Inc., DBASE II—Ashton Tate., 
CP/M, DDT, ED, ASM, LOAD—Digital Research Inc. 





2. Drill а hole to accommodate the 
pushbutton in the upper left-hand 
corner on the plastic top section. Drill 
it about 34 inches in from the top and 
left-hand sides. 

3. Solder a three-inch piece of wire 
to one pushbutton terminal. Strip the 
other end. 

4. Solder the long wire (which will 
go to the plug) to the the other button 


‘Figure 1. Joystick Circuitry 


+5 VOLTS | PLUG 







RIGHT/LEFT 










PUSHBUTTON 2 ` 


terminal. ADDED 
5. Install the button in the top HHIH: 
section. eum 6 
6. Solder the short button wire to 
the solder lug having the black wire PUSHBUTTON 1 
attached. This black ground wire is 
attached to DIN Plug 3. It may be e—— 4 


some other color for other joysticks. 

7. Carefully route the long wire 
through the existing cable exit. 

8. Close the case and secure the 
screws. Make sure the joystick doesn't 
bind. 

9. Tape the wire along the existing 
cable every three or four inches. 

10. Disassemble the DIN connector 
by prying up the locking finger and 
pulling the casing back. 

11. If your joystick already has а six- 







GROUND 


UP/DOWN 





pin DIN connector, solder the added 6-PIN 
wire to the center pin. Trim off excess DIN PLUG 
wire before soldering. The center pin (WIRE SIDE) 


is labeled Pin 6. Reassemble the con- 
nector. Follow steps 12-14 if you have 
only a five-pin DIN connector. 

12. Unsolder all wires. Keep track of 
which wire went to which pin. In my 
case, pins 1-5 had wires colored yel- 
low, green, white, black and red, 
respectively. 


LONE STAR SOFTWARE PROUDLY 





PRESENTS 


MENU I 
CREATE 
YOUR OWN 
BANNERS, LOGOS, 
GRAPHS, CHARTS, 
AND MORE! 





i 


δω. 


[Lon 5 rAr] 


ы: 
rt 


ОРТ» L Load 
AN 


Save Print J 


INTERACT VE πιο КЕЛ CS ELI TOR 


FOR. THE MODEL. 


$497.75 


LONESTAR SOFTWARE 
& IC DESIGN CO. HOUSTON, TEXAS 


aA €» C) 2.4 Em 
FEATURES: 
* USER FRIENDLY 
ὋΝ SCREEN MENU "*"STRETCHABLE RECTANGLE 
* CURSOR CONTROL * STRETCHABLE SEGMENTS 
""SAVEABLE DISPLAY  "*CIRCLE OPTIONS 

* PRINT OPTION > ANGLE LOCKS 

ж TEXT EDITOR ж FILL PATTERNS 

ж FAST MACHINE CODE “CONSTANT X,Y READOUT 


**Coming soon for the MODEL 200! 


TO order call: 1-800-835-2246 ext.298 
In Kansas 1-800-362-2421 ext.298 
VISA & MASTERCARDS WELCOME 


"*SKETCH MODE 
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13. Remove the old plastic casing ИНИНИ 
from the cable. Slide on the new casing 000 
and route the extra wire through it. ; 

14. Solder the extra wire to the EEHEEHE 
central pin (Pin 6). Then, solder on the it 
remaining wires to the correct pins. 
Reassemble the connector. | 

Тһе correct button operation сап be | 
tested with an ohmmeter ог the рго- iin 
gram shown in Listing 1. If you use ап 
ohmmeter, depress the new switch and 
check for a short circuit between pins 
3 and 6. Open the switch and see that 
an open circuit condition exists. If you 
use Listing 1, insert the joystick into 
the left or right port and run the BASIC 
program. Depress the added button. 
The status for button two should 
change from “off” to “on.” If it does 
not, look and see if any of the other 
joystick readings seem funny. If the 
left-right or up-down readings don't 
vary between about two and 120, 
chances are that you have wired the 
plug incorrectly. Disassemble the plug 
and look for loose wires or shorted 
wires. If you have another unmodified 
joystick, use it as a guide for proper 
wiring 





“The listing: 0: 


10 'Joystick Tester Program | 
2) KEY OFF:CLS | 
36 LOCATE 3,33: PRINT. "RIGHT Joystick" 
40 X=5:GOSUB 99 

159 LOCATE 8,33:PRINT "LEFT asd pH 
164 X-11:GOSUB 99 | 
70 F$-' ewe" | | 
“80 6050В 149: сото. 88. | | 
99 LOCATE X, 1 :РЕІКТ"ЕОТТОМ 1 18 2 | 
lgg LOCATE X,27:PRINT"BUTTON 2 IS "; 

110 LOCATE X,45:PRINT"L/R="; 

120 LOCATE X, 69: ΕΙ 

139 RETURN 

140 STRIG ON 

150 LOCATE 25,1: PRINT'HIT ANY KEY TO EXI 
mn: 

7160 А1-8твте(1): BI-STRIG(3): ADSSTRIG(5): 
B2=STRIG(7) 





Figure 2. Joystick Modification 








TOP PIECE 


: ADDED 
PUSHBUTTON 


PUSH- 
BUTTON 


BOTTOM PIECE 


170 IF Al-g THEN A1$—-"OFF" ELSE А15-" ON 
180 IF А2-й THEN A2$="0FF" ELSE А25-" ОМ 
190 IF Bl-9 THEN B1$-"OFF'" ELSE В15-" ON 
n 
209 IF B2-9 THEN B2$-"OFF" ELSE В25-" ON 
" 


21) LOCATE 5,22,0:PRINT B1$::LOCATE 5,39 
;PRINT B2$; 

220 LOCATE 11,22:PRINT A1$;:LOCATE 11,39 
:РЕІМТ А25; 

230 LR1=STIGK(Q):UD1=STICK(1):LR2=STICK( 
2):UD2-STICK(3) 

240 LOCATE 5,49:PRINT USING F$;LRl;:LOCA 
ТЕ 5,64:PRINT USING Е$;0р1; 

25% LOCATE 11,49:PRINT USING F$;LR2;:LOC 
ATE 11,64:PRINT USING F$;UD2; 

260 FOR I=1 TO 19g:AS-INKEYS:IF А$<>"" T 
HEN END ELSE NEXT I 
270 RETURN 


July 1986 PCM 29 





ULT EA ο ο ο άδι,,....... 


А New Approach 
to Model 100 Binary 
File Exchange 





By Marty Goodman and 


Frank Oechsly 





club meetings it often 
o that Model 100 
owners want to share files 


with each other. It is relatively easy to 
use a null modem cable to link the RS- 
232 ports ofthe two computers and the 
built-in software in the Model 100 to 
exchange text (. DD) files. This can be 
accomplished using either Telcom or 
directly from the Text program itself. 
In the former case, one merely sets up 
one computer to transmit and the 
other to receive the file. In the latter 
case, one first types on one computer 
LORD^COM:88I1E and on the other 
SAVE "COMBBIIE. This saves the text 
file in one computer via the RS-232 
port into the currently opened text file 
area of the Text program of the other 
computer. 

If you wish to exchange tokenized 


Martin H. Goodman, M.D., a physi- 


cian trained in anesthesiology, is a 
longtime electronics tinkerer. He is the 
database manager of RAINBOW’s CoCo 
SIG on Delphi. 


Frank Oechsly is the author of a Cali- 
fornia Model 100/ NEC 8201 newsletter 
and enjoys working with portable com- 
puters. 


BASIC program (.BA) files, the ap- 
proach is a little more complex. You 
must first convert the .BR file into a 
. DO file by loading it into BASIC, then 
saving it out again with the A option 
(SAVE “FNAME” ,A). This places a copy 
of the program in ASCII text form in 
the memory of the computer. Now you 
can transmit this ASCII (. DO) version 
of the BASIC program over to the other 
computer using the methods pre- 
viously discussed. 


The Problem with Binary Files 

Binary (.CO) files present further 
problems. The Model 100 built-in 
software system is not well set up for 
exchanging those files. There are 
various utilities circulating that con- 
vert binary files to and from ASCII 
form (Intel Hex conversions are good 
for this). Once in Intel Hex or some 
similar ASCII form, the file can be 
transmitted via null modem. 

But in this case both parties need 
extra software in their Model 100. 
While such utilities are written in 
BASIC and can be transferred them- 
selves, if both parties do not have them 
in their machines at the start, the file 
transfer process becomes a cumber- 
some matter of "ASCII-fying" two 


BASIC programs, transmitting them, 
converting, then ASCII-fying the . CO 
program, transmitting it, and finally 
converting it. Гуе used this technique 
and it works, but it is a hassle. 


The Technique 

In such cases it was often faster to 
save the file to cassette tape, then 
reload the file into the other machine. 
I wondered, why not send the cassette 
signal directly from one machine to 
another? Frank Oechsly (author of the 
local M100/ NEC 8201 newsletter) and 
I decided to try this out. Our first 
experiments with such transmission 
failed, because the amplitude of the 
signal coming out of the M100 was a 
bit too low for the М100 cassette 
signal input on the other side. 

We bought a speaker/ amplifier unit 
(Radio Shack cat. no. 277-1008). 
Running the output (black, 14-inch 
jack on cassette cable) of the sending 
M100 into the input of amplifier, and 
the output of the amplifier into the 
input of the receiving computer (gray 
Y-inch jack on cassette cable) we 
found transmission worked, but was 
unreliable because, even with the 
volume all the way down, the signal 
strength was too high. 
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We put a 150-ohm resistor in parallel 
with the input to the speaker/amplifier 
unit, attenuating the input signal. With 
this resistor added, direct transmission 
between Model 100s was flawless on all 
attempts with the volume on the ampli- 
fier box set in the low region. 

Note that the speaker amplifier unit 
has two sockets that fit the '4-inch 
phono jacks at the ends of the M100 
cassette cable. This technique allows 
more direct transfer of BASIC programs, 
as one can send the tokenized BASIC 


program directly from the memory of 


one computer to the other without first 
putting it in ASCII. 


Discussion 

Transmission via the cassette port 
takes place at an average of 1,500 
Baud. It also includes error checking, 
so if an error is detected by the receiv- 
ing computer, the transmission is 
terminated. Note that this is only error 
checking and (unlike XMODEM ) not 
associated with error correcting. All 
the receiving computer does is cancel 
the transmission if it detects an error. 

While you can use this technique for 


and loading to and from cassette on 
the Model 100s, this becomes very 
inefficient. The null modem RS-232 is 
far superior because it works reliably 
at 9,600 Baud. Using the cassette port 
for text file transfer, you are not only 
tied to 1,500 Baud, but the file is 
transmitted with gaps between blocks 
of data. This approach makes the data 
recoverable from partly damaged 
tapes, but slows machine-to-machine 
transmission. 


Try It Yourself 

All you need is the Radio Shack 
speaker/amplifier, two Model 100s, 
two cassette cables, a 150-ohm resis- 
tor, a %-іпсһ mini-phono plug and 14- 
inch mono-mini socket. Make a little 
adaptor cable with the resistor sol- 
dered between input and ground on 
that cable. This will let you take the 
resistor in and out of the circuit as 
needed. 

Connect the black plug from the 
receiving computer to one adaptor 
socket that has the 150-ohm resistor 
going to ground, and put the plug on 
the other side into the input jack of the 
speaker amplifier. Plug the gray jack 


output jack of the speaker amplifier. 
Set the volume control to just a little 
beyond the “оп” position. 

When the computers are connected 
via this null cassette modem, first go 
to BASIC and give the receiving com- 
puter the CLORDM command if you 
want to receive a binary machine 
language program file, or give it the 
CLORD command if you want to receive 
а tokenized BASIC program. It will 
wait for a signal. On the sending 
computer, first LORDM or LORD the .CO 
or .BA file you want to transfer, then 
use the CSRVEM or CSRVE command to 
initiate transmission. Note that you 
must provide the needed addresses for 
start, end and execute if you are 
sending a .CO file. These addresses are 
displayed at the time you LORDM such 
a file. 

When you start transmission, the 
receiving computer is fooled into 
thinking the signal is coming from a 
cassette recorder and CLORDs or 
CLOADMs the program just as if it were 
getting the program from the cassette 
recorder. After transmission is com- 
pleted, you must SAVE or SAVEM the 
received file to put it into the directory 











transferring text files as well, by saving from the receiving computer into the оп the receiving machine. РСМ 
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Purchase Order 

* Maintains PO and Inventory files 

* Prints confirming POs 
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* All modules completely integrated 
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* User defined aging periods 
* Prints vendor mailing labels and lists 


Payroll & Job Costing 

* Supports labor related job costing 
© Maintains federal, state and local tax tables 
* Handles vacation and sick leave time 
* Prints W-2 forms and 941 information 
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NEW! MODEL 100 3-іп-1 ROM 


Interactive Solutions 


АП the software that you will ever need 
on the Model 100 Portable: 


1— Data Base 
2— Spreadsheet 
3— Word Processor 


with Mail Merge 


Now on a plug-in ROM. Integrated and easy as 1-2-3! 


Interactive Solutions 
Tandy Cat. 426-3844 


m The Data Base turns your Mod 100 into a per- 
sonal filing system. You can store, examine, update 
select, sort and list a wide variety of information - 
from personnel records and inventory facts to 
appointment schedules and client lists. 


Ш The Spreadsheet turns your Mod 100 into a 
powerful decision tool. It is a full featured spread- 
sheet with 99x99 cells and provides fast decimal 
arithmetic in formula computation with complete 
range of scientific functions. 


Ш The Word Processor uses the Text editor of 
Mod 100 and gives you additional features for 
formatting and printing. You can set margins, line/ 
para spacing, justify, define header/footer and use 
special print features like underline, boldface, etc. 


MORE MEMORY Interactive Solutions does not 
occupy RAM memory, so frees your precious RAM 
for larger data files. 


EXTRA CONVENIENCE Interactive Solutions 
plugs in the optional ROM socket. It is always resi- 
dent and ready to work. You don’t need to load 
programs from cassette recorder any more. 


*Copyright DCM Data Products, Licensed to Tandy Corporation. 


* Registered trademark of Tandy Corporation. 


Available at your nearest 


Radie Shaek 


COMPUTER CENTERS 


Interactive Solutions integrates all of your data 
information in Mod 100. With a touch of a func- 
tion key, you can easily: 


* Select and move items from Data Base files 
into Spreadsheet columns. 


* Generate a report in Data Base program 
and move to the Word Processor. 


* Cutany part of Spreadsheet and move to the 
Word Processor. 


* Merge the items (like names, addresses) from 


Data Base files into a Form Letter and 
generate multiple letters or labels. 


All this and much more in 
a 32K bytes ROM from 


DCM Data Products 

1710, Two Tandy Center C 

Fort Worth, Tx. 76102 

Tel: 817/390-2762 data products] (49 


Radio Shack and Model 100 are trademarks of Tandy Corporation. 
1-2-3 is a trademark of Lotus Corporation. 
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ΕΕ Жасын ысыра απο ИИК 


3-D Sounds on the 
Tandy 1000 


By Robert W. Keefe 





is difficult to find fault 


with Turbo PASCAL from 
Borland International. 
It’s easy to use, a great 
editor, provides painless 
debugging plus has ex- 


tensions to the language to increase 
flexibility. But, when using Turbo on 








the Tandy 1000, there is one slight 
difficulty. Some of the nicer features of 
the Tandy 1000 are not easily accessed. 
Turbo thinks it is running on an IBM 
PC and, therefore, does not recognize 
the existence of some of the extensions 
to the IBM standard provided by the 
Tandy 1000. This article deals with one 
facet of this problem. 

The Sound and NoSound statements 
provided by Turbo generate fixed am- 
plitude signals, one frequency at a time, 
via an 8253 counter. There is no direct 
means of accessing the 76496 complex 
sound generator in the Tandy 1000. This 
complex sound generator gives the 
Tandy 1000 the ability to produce three 
independent sound channels, each with 
its own frequency and amplitude level. 
In addition, it provides another channel 
for noise generation. 

The wizards at Borland have, how- 
ever, provided us with an indirect means 
of utilizing these resources. Turbo's 
Port array gives us access to all of the 
I/O ports and, thereby, entry into the 
Tandy's hardware inner sanctum. The 
complex sound generator may be pro- 
grammed by writing data to one of these 
I/O ports (200600). The listing for 
Sound ..1 K.inc, which contains a group 
of procedures that use this method to 
fully utilize the sound capabilities of the 
Tandy ІК, is at the end of this article. 

First, a few words about the 76496. 
This device is a programmable tone/ 
noise generator capable of producing 
four sound channels simultaneously: 
three musical tones and one noise. The 


Robert Keefe is the father of five daugh- 
ters and is retired from a local power 
company where he was a lineman for 30 
years. He is a hobbyist with a long- 
standing interest in all forms of elec- 
tronics. Robert may be contacted at 644 
Penning Avenue, Wood River, IL 
62095, (618) 254-9767. (Please enclose 
an SASE when writing.) 
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Take off with a Tandy portable 


and have real computing power 
wherever you travel. 


Great traveling companions 
Whether you're a business- 
person, journalist, police officer 

or student, you can't afford idle 
time. Our affordable Model 100, 
Tandy 200, and Tandy 600 porta- 
ble computers are invaluable 
tools that help keep you on top 
of your work wherever you go. 


Computing power for less 

The popular Model 100 
(26-3802) is perfect for writing 
letters, reports and other corre- 
spondence anywhere, at any 
time. Or use the 100 as your 
personal appointment calendar 
and name/address and phone di- 
rectory. This lightweight com- 
puter was the first to feature five 
instant-on programs, as well as a 
40 x 8 display— all built in. 





At only $499, this powerful 
little traveler offers you more 
options than you thought 
possible—including a built-in 
modem and a communications 
program that lets you access 
other computers or national in- 
formation services by phone. 
You can even write your own 
programs in BASIC. 


Powerful portability 


The $799 Tandy 200 repre- 
sents a true second generation 
in portable computers. Not only 
does it come with its own built- 


in software, improved features, 
a bigger 40 x16 fliptop screen, 
and a larger memory, but it 
weighs only 4!/2 pounds. 


Plus, the Tandy 200 (26-3860 
comes with powerful Multiplan 
spreadsheet analysis built right 
into the memory. You can do 
complex spreadsheet calcula- 
tions at the touch of a key. An- 
swer thousands of “what if... 2 
questions instantly. 


, 





Our most advanced laptop 


The high-performance Tandy 
600 (26-3901) features a 16-bit 
microprocessor, an 80 x 16 dis- 
play, a built-in 31/2” disk drive 
that stores 360K of data, and 
32K RAM (expandable to 224K). 


At $1599, the Tandy 600 
also includes five resident 
applications—all designed by 
Microsoft for anyone who's al- 
ways on the go. With the Tandy 
600's larger display and ex- 
panded memory, Multiplan can 
handle more information. 

Using MS-Word®, you'll also 
have quicker access to docu- 
ments and more storage capacity 
with the built-in disk drive. File 
is an electronic database for 
names and addresses, expenses, 
client billing and more. With the 


Telecom program and the Tandy 
600's built-in modem, you can 
keep in touch over phone lines. 





Don't leave the office 
without one 

Tandy offers you a choice of 
three portable computers— one 
is sure to fit your needs. See 
them all at your local Radio 
Shack Computer Center! 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


Radie Shaek 


COMPUTER CENTERS 


A DIVISION OF TANDY CORPORATION 
шои ва и πε ш ен EE 


= Send те an RSC-16 t 
Computer Catalog. 


* 
Radio Shack, Dept. 87-A-16 
3 300 One Tandy Center 
ή Fort Worth, TX 76102 


H Name 


H Address 


¥ City 
H State 


ZIP 
£ Phone. 


Ба та на επι και mes mm καὶ 


Prices apply at Radio Shack Computer Centers and participating stores and dealers. Multiplan and MS-Word/Registered TM Microsoft Corp. 
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amplitude of each channel may be set 
independently. Programming is ac- 
complished by sending data, via I/O 
port $00C0, to data lines (eight bits 
wide) on the 76496. This data is then 
routed to one of eight registers on the 
76496. 

Addressing these internal registers is 
a bit tricky. If you are interested in 
details, consult the Tandy 1000 Techni- 
cal Reference Manual or the Texas 
Instrument Data Sheet for this device. 

Look at the first procedure in the 
listing, Set. Freq. This procedure ac- 
cepts two arguments, Channel and 
Freq. The first, Channel (which must be 
in the range of one to three), is used to 
select which of the three tone channels 
is to be set. The second, Freq (which 
must be in the range of 110 to MaxInt), 
is used to set the frequency of the 
channel. 

The channel frequency is determined 
by a 10-bit divisor (Divisor) that this 
procedure sends to the appropriate 


register on the complex sound genera- 
tor. Since the data bus is only eight bits 
wide, it is necessary to send two bytes 
sequentially (Bytel and Byte2). Bytel 
contains the register address and the 
low-order nibble of Divisor. Byte2 
contains the remaining six significant 
bits of Divisor. 

The second procedure in the listing, 
Set. Volume, provides for control of the 
amplitude of the three tone channels 
and of the noise channel. Set. Volume 
accepts two arguments. The first, Chan- 
nel (which must be in the range of one 
to four), is used to select which of the 
three tone channels is to be set. The 
second, Vol (which must be in the range 
of zero to 15), is used to set the ampli- 
tude of the selected channel. For max- 
imum output, set Vol = 0; for minimum 
output, set Vol - 15. This procedure 
then sends the necessary data to the 
appropriate register on the 76496. 

The third procedure, Set. Noise, is 
used to control the noise channel on the 





Listing 1: 
(---) 


Procedure Set Freq(Channel:Byte; Freq:Integer); 


Const 
PortAddr = $99Cg; 


76496. Set_Noise accepts two argu- 
ments. “Kind” selects the type of noise 
to be sounded. If Kind = 0, the output 
is an impulse-type noise; if Kind = 1, the 
output is a white noise. “Vol” is used to 
set the amplitude (as in Set_Volume). 
The pitch of the noise may be varied by 
changing the frequency of tone channel 
3. 

The last two procedures in Sound 
_1К.іпс are Chord and Soundoff. 
Chord is used to produce a three-note 
musical chord and accepts three fre- 
quencies and three volume levels as 
arguments. Soundoff mutes all four 
channels. Don’t forget this one — this 
procedure is necessary to turn off the 
sound output, which, if not silenced, 
continues until the system is reset or the 
power is turned off. 

Also included is a short demo pro- 
gram to try out these routines. So, there 
you have it: sound in its full glory on 
your Tandy 1000! I will leave it to you 
to develop a full-fledged song-playing 
program. Г] 





Port(PortAddr] := Вусе1; 


End; (Sec_Noíse) 


RegAddr :Аггау[1..3] of Byte -($89,$49,$C9); 


Var 

Bytel,Byte2 : Byte; 
Divisor : Integer; 
Begin 


If Freq < 119 Then Freq := Maxint; 

Divisor := Trunc(223688.9/Freq) ; 

Bytel i= 

Byte2 

Port({PortAddr) :- Bytel; 

Port[PortAddr] :- Byte2; 
End; (Set_Freq) 


Procedure Set_Volume(Channel, Vol: Byte) ; 


Const 
PortAddr = $99Cg; 
RegAddr : 


Var 
Bite : Byte; 
Begin 
Bite 
Port[PortAddr] :- Bite; 
End; (бес Volume) 


(---) 
Procedure Set Noise(Kind,Vol:Byte); 


Const 
PortAddr = $g9cg; 
VolRegAddr = $Fg; 


TypeRegaddr = $Eg; 


Var 
Bytel : Byte; 


Begin 


Bytel :- TypeRegAddr + ((Kind And $91) SHL 2) + $93; 


Port(PortAddr] := Bytel; 
Bytel := VolRegAddr + (Vol And $F); 
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RegAddr[Channel] +(Divisor And $@99F); 
{= (Divisor And $93Fg) SHR ὁ; 


Array(1..4] of Byte =($99,$B9,$D9,$F9); 


t= (Vol And $8F) Or RegAddr[Channel]; 


(---) 


Procedure Chord(Freql,Freq2,Freq3 


Begin (Chord) 


Set Егеа(1,Еге41); 
Set Volume(1,V011); 
Set Freq(2,Freq2); 
Set Volume(2,V012); 
Set Freq(3,Freq3); 
Set Volume(3,Vo13); 


End; (Chord) 


(22-2 


Procedure SoundOff; 


Begin 


End; (SoundOff) 


Program TryOut; 
(R. Keefe 


Begin 


SoundOff; 
End. 









Set Volume(1,$9F); 
Set Volume(2,$gF); 
Set Volume(3,$9F); 
Set Volume(4,$9F); 


. Wood Ríver,Ill.) 


{$I Sound-1lK.Inc ) 


Chord(659,784,1947,2,2,2); delay(49g); SoundOff; Delay(199); 
Chord(523,659,784,2,2,2); де1ау(200); SoundOff; Delay(199); 
Chord(523,659,784,2,2,2); ἀελαγί2ββ); SoundOff; Delay(199); 
Chord(523,698,889,2,2,2); delay(499); SoundOff; Delay(199); 
Chord(523,659,784,2,2,2); 4в1ау(400); SoundOff; Delay(589); | 
Chord(573,784,988,2,2,2); 4е1ау(200); SoundOff; Delay(499); | 
Chord(659,784,1947,2,2,2); delay(299); š f 



































: Integer; 
Voll,Vol2,Vol3 : Byte); 


Listing 2: 


| 





Based оп Marvin Mallon's book, this new 
column takes you on a grand tour of the 
world's most popular lap-top computer 


Exploring the Tandy 
100 


Hy Marvin С. Mallon 





ou have just invested 
in a remarkable, 
bantam-weight 
microcomputer, the 
Tandy 100. If this is 
the first time out of 
the shipping box for your new 
electronic helpmate, it might be 
appropriate to run through the set-up 
procedure. A saying that dates back to 
the beginning of the microcomputer 
age states, "if all else fails, read the 
manual." Rather than wait for 
something to fail or, worse yet, for 





Marvin Mallon is a professional mi- 
crocomputer programmer and busi- 
ness consultant. He has written nu- 
merous technical articles dealing with 
a variety of computer hardware and 
software dating back to 1976. Mr. 
Mallon's book, Exploring the Radio 
Shack Model 100, from which this 
installment is excerpted, is available 
from Compu-Quote located at 6914 
Berquist Avenue, Canoga Park, CA 
91307, (818) 348-3662. 








some damage to occur, you are well 
advised to make your way through the 
Tandy 100's user's manual. This 
owner's guide contains start-up 
information which can be condensed 
as follows: 


1. Get four size AA alkaline batter- 
ies and place them in the slide-out 
compartment on the bottom of 
the machine (Figure 1). 

2. Switch the “Memory Power” 
switch (located underneath the 

unit) to “On” (Figure 2). 

3. Slide the main power switch to 
“On” (Figure 3). 

4. You should get a display similar 
to that shown in Figure 4. 

Alternatively, if you purchased the 

optional AC Power Adapter (part 
number 26-3804), plug it into the DC 
6V connector as illustrated in Figure 
5. This unit will save a lot of battery 
expense when your Tandy 100 is used 
at a desk and portability is not a factor. 
At best, the batteries will supply power 
for about 20 hours before replacement 
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is necessary. Invest in plenty of extras, 
but use the AC Power Adapter when- 
ever a 110 volt wall plug is handy. 


On/Off and Display Controls 

As you previously discovered, the 
On/ Off switch is located on the right- 
hand edge of the Tandy 100. If it's in 
the on position, and you don't touch 
the keyboard for about 10 minutes, the 
machine will turn itself off to conserve 
power. It is then necessary to slide the 
switch back to *Off," and then to *On" 
the next time you wish to activate the 
computer. This “time-out” feature can 
be set for other time periods or can- 
celled altogether. Refer to the POWER 
command as explained in Chapter 9 or 
in the BASIC section of the owner's 
manual. Any program material you 
might have entered into the machine 
will be retained. This automatic "shut- 
down" of the Tandy 100 does not erase 
anything previously entered. Note that 
the Tandy 100 maintains the day, date 
and time. A small, built-in NiCad 
(Nickel Cadmium) backup battery 
keeps the clock going as well as sup- 
plying the little amount of power 
required by the internal memory. As 
long as the “Memory Power" switch is 
turned on, this battery will do the job 
until it reaches its end-of-life (approx- 
imately 2% years). Its replacement сап 
be easily accomplished by Radio 
Shack service personnel. 

The “Display” control is also on the 
right-hand edge of the machine (Fig- 
ure 3) and permits you to alter the 
LCD (Liquid Crystal Display) appear- 
ance to suit your taste and viewing 
angle. You can't hurt a thing by exper- 
imenting with various settings of this 
control. You will probably find that it 
needs to be adjusted when you move 
the Tandy 100 from a desk to your lap. 

Setting the correct day, date and 
time is the next order of business and 
is accomplished as follows (see Figure 
6): 

1. Since BASIC is highlighted on the 
LCD and that's where you want 
to go, press the ENTER key. 

2. Туре: БВАТЕ$= 02/01/86“ 
ENTER (using today's date in the 
format ΛΜ ΠΡ; Y Y). It is ne- 
cessary to enter two digits for 
each of the periods; for example, 
July becomes 92. 

3. Type: TIME$-^*14:02:30^" 
ENTER using the correct time in 
the format HH:MM:SS and 
adding twelve to the afternoon 
hours. Don't forget the leading 
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zeroes as in the date example 
above. 

4. Type: DAYS=“TUE” ENTER using 
the current day of the week. Only 
the first three letters of the ap- 
propriate day's name should be 
entered. 

5. Type: MENU ENTER and you'll exit 
BASIC and return to the main 
menu display. 

Hereafter, your Tandy 100 will 
maintain the correct day, date and 
time except for Leap Year's February 
29th. which the machine does not 
recognize. The procedure need not be 
repeated unless the internal NiCad 
battery requires replacement or more 
RAM (Random Access Memory) 
modules are added to the machine. 

We are now ready to begin our 
survey of the keyboard and other 
important controls. Figure 7 illus- 
trates that the keyboard occupies fully 
two-thirds of the face of the computer. 


The QWERTY Keyboard 

There are 45 keys that constitute the 
main typing portion of the keyboard 
(Figure 8). The entire alphabet as well 
as numbers, punctuation marks, spe- 
cial characters and the space bar are 
represented here just as they are on 
most typewriters. A few of the symbols 
and the location of others may differ 
from what you see on your Smith- 
Corona, but, by and large, this is the 
same keyboard you've worked with 
before. Be assured that you can't hurt 
the computer by experimenting with 
the keys. 

A few of the symbols are notably 
different than those you may be famil- 
iar with. Their presence is explained 
principally because of their usefulness 
in creating BASIC programs. The less 
than (<) and greater than (>) symbols 
represent the mathematical terms. The 
asterisk is still an asterisk, but doubles 
as the sign of multiplication in BASIC 
programming. 

QWERTY derives its name, of 
course, from the first six letters on the 
second row. Other, more efficient, 
keyboards have been designed (nota- 
bly the Dvorak) but it seems evident 
that the QWERTY is too ingrained in 
our culture to permit variation. 

As on a typical typewriter, a right 
and left SHIFT key can be found at the 
ends of the fourth row (Figure 9). 
Either one will put you in the capital 
letter mode. A "press on/press off" 
CAPS LOCK key serves. to take you 
from lower- to uppercase while the 


ENTER key performs much the same 
function as a typewriter's “Carriage 
Return." The TAB key also acts in a 
manner similar to typewriter opera- 
tion. Pressing it advances the cursor 
(the blinking black square) eight 
spaces to the right. After the fourth 
tabbing to the right, the cursor 
advances one line and returns to the 
left hand edge of the display. TAB is 
used only with Text, the built-in word 
processing program (more on that 
later) and in BASIC programs. 

The key labeled CTRL (Figure 10), 
located on the left-hand edge of the 
third row, is never used by itself, but 
performs special functions in conjunc- 
tion with other keys. For example, the 
combination of pressing the CTRL key 
and the letter M simultaneously will 
move the cursor down one line. A 
complete chart of control key func- 
tions can be found in Appendix A of 
the owner's manual. 

The ESC (escape) key in the upper 
left-hand corner serves a limited pur- 
pose. When you press it twice in 
succession while in the Text mode, you 
will be returned to the main menu. 
Certain escape sequences, where this 
key is used in unison with others, are 
itemized in Appendix B of the owner's 
manual. 

The GRPH (graph) key is located in 
the lower left-hand position of the 
keyboard. When in BASIC, it is used to 
display 73 different symbols when it is 
pressed in combination with other 
keys. A complete list of these graphics 
can be found in Appendix I of the 
owner's manual. The graphics sym- 
bols available include minature char- 
acters of human figures, playing card 
suits, arrows, checkerboard patterns 
and a variety of other useful, albeit 
unusual, pictures. They can be im- 
bedded in BASIC programs that you 
create or can be conjured up by simply 
pressing the GRPH key and another 
key simultaneously. Thirty-nine sym- 
bols are available in that manner; 
another 34 if the SHIFT key is pressed 
as well. 

The key labeled CODE to the right 
of the space bar (Figure 11) is used in 
the same manner as the GRPH key. It 
produces another 32 special characters 
when used in conjunction with other 
keys. Twenty-nine more are created 
when the SHIFT key is added to the 
combinations. The characters gener- 
ated by the CODE key are principally 
upper and lower case foreign language 
vowels. This arrangement permits you 





Memory Upgrades for Tandy Portables! 


Model 600 96K RAM Upgrade 
$249. or $465. for two 
Save up to $335. with this upgrade designed 
specifically for the Model 600. The 96K up- 
grade card fits into existing slots in the Model 
600 and adds either 96K or 192K of RAM to 
the computer. 


Model 200 Model 100, 8201 or М10 


24K RAM Upgrade 8K RAM Upgrade 
$89.00 $27.00 
Two for $170. $75. for pkg. of 3 


Save up to $330. with this ex- Save upto $282. upgrading an 

act replacement while bringing 8K Model 100 to 32K The 

your Model 200 up to 72K. modules alsofitthe NEC 8201 
and the Olivetti M10. 


Ж Ж Ж BUY QUALITY δ. SAVE Ж Ж ж 


All three upgrades feature low power version of CMOS static RAM for 
minimum battery drain and maximum reliability. Our products are 10096 
tested before they leave the factory. Every upgrade carries with it a ЗО day 
satisfaction money back guarantee and 1 yr. replacement warranty. Step 
by step illustrated instructions are included, and our customer service 
support is as close as your phone. 


TO ORDER 
CALL 714-540-1174 
or WRITE 


M/C, VISA, CHECK or MONEY ORDER American 
CALIF. RESIDENTS ADD 696 Sales Tax Ж) Cryptronics Inc 
9 е 


SHIPPING-ADD 
UPS Ground $1.50 (Formerly Cryptronics, Inc.) 
2nd Day Air $4.00 1580 Corporate Drive, Suite 123 
Next Day Air $12.00 Costa Mesa, California 92626 


Tandy is a registered trademark of Tandy Corp. (714) 540-1174 

















to compose documents in French, 
Swedish and other European al- 
phabets using the Text program avail- 
able in this machine. АП together, 
some 134 symbols can be produced by 
combining either the GRPH or CODE 
key with the conventional keys pre- 
viously described. 

The NUM (number) key serves a 
special purpose. If pressed, it will stay 
down and convert the 10 keys above 
it into a miniature numeric keypad. 
These keys are clearly identified by the 
small black number on a white square 
in the lower right-hand corner of the 
keytop. While the NUM key is in this 
mode, numerical data entry can be 
speeded up by using these keys as you 
would on a calculator or adding ma- 
chine. Pressing the NUM key again 
disables this feature and the ten keys 
revert to their conventional function 
on the QWERTY keyboard. 

The DEL/ BKSP key is the last of the 
full-sized keys that requires descrip- 
tion. It is located in the upper right- 
hand corner of the keyboard (just 
below the cursor control keys) and 
serves double duty. You might have 
already discovered the backspace key 
acts as your electronic eraser. Each 
stroke causes the cursor to back up 
one space and “eat” the character in its 
path. This handy correction feature is 
available at all times and in all pro- 
gram modes. Either SHIFT key changes 
this into a delete key that pulls char- 
acters on the display in from the right 
rather than moving the cursor to the 
left as does the backspace key. This 
function is only operative, however, in 
the Text mode when creating or edit- 
ing documents. At other times, it 
simply acts as does the backspace key. 
The combination of both the shifted 
and unshifted use of this single key lets 
you do most any editing task quickly 
and efficiently. 


Programmable Function Keys 
Located just beneath the LCD dis- 
play are the eight programmable func- 
tion keys (Figure 12). These keys have 
different meanings depending upon 
which application program you have 
selected. The Tandy 100, as witnessed 
by the listing of files on the main menu 
display, offers five choices. Each of 
these is discussed fully in the chapters 
ahead. Figure 13 enumerates the func- 
tions performed by each of these keys 
under each of these program selec- 
tions. In addition, these keys can be 
redefined when the machine is operat- 
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ing in BASIC. This feature enables you 
to program as many as eight different 
actions that a user may select by 
merely pressing one of the function 
keys. Later, when we deal with BASIC 
programming, we'll explain how this 
is accomplished. Note Function Key 8 
(F8) is reserved as the “menu” key. 
Regardless of the application mode 
you have selected, this key, when 
pressed, will terminate activity, pre- 
serve any files you may have created 
and return you to the main menu. 


The Command Keys 

Just to the right of the eight pro- 
grammable function keys is another 
group of four keys that serve as special 
"command" keys (Figure 14). The first 
of these is the PASTE key. It is opera- 
tional only when the machine is in the 
Text mode. Used in conjunction with 
the *Cut" function, PASTE allows text 
to be manipulated during document 
editing. 

The LABEL key is used to alternately 
display on the bottom line of the 


"If you press the 
PRINT key and your 
printer is 
inoperative, the 
computer will 
stall." 


screen the operations performed by 
the eight programmable function 
keys. As you move from application to 
application, the function keys (as 
explained previously) take on differ- 
ent definitions. You need only press 
the LABEL key to see the current 
definitions for these keys. Pressing it 
again removes this information and 
permits the last display line to be used 
for other purposes. 

The PRINT key functions at all times 
and under all applications. When 
pressed, it causes the current screen 
display to be sent to your printer. Used 
in conjunction with the SHIFT key, it 
will print out an entire BASIC or Text 
file. 

If you press the PRINT key and your 
printer is inoperative, the computer 
will stall. You can terminate the print- 
ing command by pressing the SHIFT- 
BREAK combination. While some 
printers will reproduce the graphic 
symbols that may have been created 





on the screen, others will either ignore 
them or behave peculiarly when these 
characters are encountered. Erratic 
performance of your printer can be 
halted by using the SHIFT-BREAK keys. 
Other means exist for sending infor- 
mation from the computer to the 
printer and will be discussed in future 
installments. 

The last command key is labelled 
BREAK/PAUSE. If pressed while a 
BASIC program is being listed or run, 
it will halt the machine until it is 
pressed again. This is most useful in 
that it allows you to momentarily stop 
a display that would otherwise scroll 
off the top of the screen. If pressed in 
combination with the SHIFT key, a 
BASIC program will be stopped. Only 
a CONT or a RUN command will start 
the program again. This SHIFT-BREAK 
combination is used in other applica- 
tions as well and serves to abort 
whatever operation may have been 
started. As mentioned in the previous 
paragraph, it is the method by which 
a PRINT command can be rescinded 
and control of the Tandy 100 returned 
to the operator. 


Cursor Control 

The last keys to be identified are the 
cursor control group located in the 
upper right-hand corner of the key- 
board (Figure 15). As the arrows 
beneath them indicate, they are used 
to move the blinking square (cursor) 
over the face of the LCD. They are 
most used during word processing but. 
also serve to move the selector bar 
across the screen of the main menu. 
Used in conjunction with both the 
CTRL and SHIFT keys, they perform 
special functions in the Text mode. 

Other than the screen display, the 
only remaining item of interest on the 
face of the TRS-80 Model 100 is the 
“Low Battery Indicator” (Figure 16). 
When this LED (Light-Emitting 
Diode) lights up, you should replace 
the four AA batteries immediately. 
There is a reserve of about 20 minutes 
of operation before the computer will 
cease functioning. Of course, if you 
have an AC adapter, power is always 
available and no such indication will 
be given. 


Summary 

Our survey of the keyboard is com- 
plete. All 72 keys have been discussed 
and we should be ready to move on to 
some productive activity on the ma- 


chine. РСМ! 








Data Collector and 


Merge 


By Bennett Shulman 





hen the Model 
100 first came out 
I was doing work 
that involved col- 
lecting public in- 
formation. I had 
been looking for a way of collecting the 
information so it could be transferred to 





a desktop computer. Without much of 
an idea of exactly how I was going to 
do this, I bought a Model 100. 

After studying the situation, I wrote 
a BASIC program to do this task; it was 
about 3,600 bytes long. After much 
study in program efficiency and several 
revisions, the latest version of this 
program is Daco.100, and is slightly 
over half the original length. 

After I had collected the data, I was 
cutting and pasting parts of it into other 
documents with TEXT when the thought 
occurred to me — why not have the 
computer do that and print out the 
number of completed copies I need? To 
fill that need, I wrote Datmg.100. 

These programs and others that ac- 
cess the database created with the use 
of Daco.100 have turned out to be more 
than adequate for my needs. Although 
I do transfer the data to a desktop 
computer, that is done only for back-up 
purposes. I do all the work on the 
Model 100. 


Program Set Up 

Before using Daco.100, you must 
open two RAM files with TEXT. The 
first I will call the label file. This file sets 
the structure of the data and names each 
data item. The other one is the data file 
where the collected data will be accu- 
mulated. 


Opening the Data File 

You need to decide how many file 
headers will appear at the beginning of 
the file (there must be a minimum of 
one). Their purpose is to provide a short 
description of what data is in the file. 


Bennett Shulman is an assistant profes- 
sor at Lansing Community College and 
holds degrees in both law and account- 
ing and is self-taught in the area of 
personal computing. 


July 1986 PCM 41 


Radio Shack has the 


Spacious modular worksta- 


Computer System tion is ideal for home or of- 


fice. Features simulated oak 


Furniture finish. Easy to assemble. 


[A/System Desk. Twin cable 


ОЮ нег. Separate management slots for easy 
Items 319.80 connections. 
26-1356 119.95 
СІ 






[B)Storage Hutch. Mounts 
on system desk. Features 
adjustable “second shelf" 
on either side. 

26-1359 .... ^ 59.95 
Half-Width Hutch. 5% 
shown). 26-1374 ...54,95 
СІСогпег Section. Con 
nects system desk and 
printer stand for a conven- 
ient “work corner.’ 
26-1358! 725% Nous 39.95 
[D]Printer Stand. With out- 
put paper catcher and stor- 
age shelf. 

20-1097 ars ss Ww 99.95 


Disk Drive Head 
Cleaning Kits 






Monitor Pedestal 













Elevates printer so fan- 
fold paper can be placed 
underneath. Use with 
80-column printers. Du- 51/4" Holds 50. 
rable crystal polystyrene. | 26-1362 





Adjustable platform ro- 
tates and tilts. Holds all 
Тапау monitors. Color 

and finish match moni- 


|Disk Size | 


| 26-449 | 9.95 | 
tors. Base: 11 x 101/4" Easy to assemble. 8" Holds 50. | 8" [26-4957 | 8.95 | 
(26-1369) (26-1367) *Single sided only 
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f= = 3 Coi әтір puter | Computer Low As 
aper 


r | Рарет ў š 
Computer Papet? τ == Computer Paper. 


[Size — — (Ра) Design [Vertical 

ата — — | 1 | Greenbar| No | 500 | 26-1330 | 

[Maxi | 1 |Greenbar| No | 1500 | 72300 | 3495 | 
Bex? [1 Gmenber | No Г 5600 | ит | 6% _ 
шиш лін | не зе теке | ма | 
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E  — sore [ ves |200 | Tesi] 4 | | 3Wide. 94/2" carrier. Pkg/3000. 72-400 . ........ 16.95 





("25,77 | 2 | White | Yes | 750 | 72305 | 5495 | 
Items Shown With Optional Computer Components (Not Included). 


2Wide. Dry gum. 91/2” carrier. Pkg./2400. 26-1456 ... 9.95 


Low-Cost, Compact 
Computer Workcenter 


9% 


m Organize Your Computer System With 
This Compact, Efficient Workstation 


= Beautifully Designed and Finished 
to “Fit In" with Other Furniture 


Our beautifully styled, simulated oak finish workcenter 
features a full-width monitor shelf (411/2 x 143/4"), space 
for computer and printer, plus plenty of workspace. This 
easy-to-assemble workcenter comes with adjustable 
glides. (26-1350) 





Perfect for Home, Office or School 


Unformatted 
Diskettes | 
m Double Density MAR 


m Manufactured to the 93:57 ο € 
Highest Standards AY 
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of Excellence 
ш Buy іп 10-Pack Quantities and Save 
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DCM 3. 300-bps modem plugs di- 


rectly into modular phone outlet. 

95 DB25 and 4-ріп DIN connectors. 
Bell 103 compatible, full duplex. 
FCC registered. (26-1178) 
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Each file header can be no longer than 
255 characters. 

Upon opening the data file, select any 
valid .DO filename. For our example we 
will call the file CUSLST.DO. The first 
entries in the file should be the head- 
er(s), each followed by a «CR» Noth- 
ing else should be in the file at that 
point. The data collected during the 
operation of the program will be ap- 
pended to this file or will be replacement 
lines for lines in this file. 

For expample, if the data file has one 
header label it would read: 






at the file has ‘two header labels they 
would read: 





Creating th the Label File 

Next you need to decide how many 
data items will be collected and what 
those items will be called. For purposes 
of illustration, we will construct a 
customer file. The data items to be 
collected are last name, first name, 
street adr, city state ZIP, company 
name, tel #, date of last order, amount 
of last order and salutation. The first 
item of each record is used as the record 
identifier. 

Once you have decided upon the 
number of file headers and data items, 
the label file can be written. For this 
example we will call the label file CUS 
LAB.DO. The first line should contain 
the number of headers (comma) 
number of data times (comma) number 
of the data item to be used as key 
reference (this data item is displayed at 
the top of the screen when a record is 
being entered). Select the data item that 
best helps you keep track of the record 
on which you are currently working. 

For example, if the data file has one 
header, nine data items for each record 
and the first data item is our key refer- 
ence, the first line of the label file would 
beri gii 

Next, you should enter the names of 
the individual data items each followed 
by a <CR>. The entire label file would 
look like this: 


T9 T 

1- LRST NRME 

2- FIRST NAME 

3- STREET RDR 

4- CITY STATE ІР 
5- COMPANY NAME 


6- TEL H 

2- DATE OF LAST ORDER 
8- AMOUNT OF LAST PROLE 
9- SALUTATION 


The item numbers (1-, 2-, etc.) are 
not a necessary part of the data item 
label, but are useful for reference. 


Running Daco.100 

Now you are ready to run Daco.100. 
When the program is run the user is 
prompted with LABEL FILE AND RE 
CORD FILENAMES? The label filename 
and the data filename should be en- 
tered, separated by a comma followed 
by a <CR> (for our example: CUSLAB, 
CUSLST). The program’s main menu 
will then appear. 

Menu prompts are answered with one 
keystroke and no <СК>, The functions 
are briefly described here. 

1.) [F ]ILE LABEL — Displays all file 
headers. You can check to make sure 
you are working on the correct data file. 
Pressing ‘M’ returns to the program’s 
main menu. 

2.) [I]NPUT NEW RECORDS — When 
selecting this function the screen clears 
and the label of the first data item 
appears on the screen. You can now 
enter the first data item. The program 
uses LINE INPUT so you can use com- 
mas and the data item can be 255 
characters long. When you enter a 
<CR>, the screen clears and the next 
label appears. You can now enter the 
next data item for that record. This 
process continues until you have 
reached the end of your data item list. 
If you are not going to enter all the data 
at one time you can skip to the end of 
the record by entering a “|” by itself for 
a data item. 

At the end of the data entry of each 
record, an option to change any entry 
is provided (Y/N). If Ὕ᾽ is selected the 
program scrolls through the data items 
again, this time showing what was 
previously entered along with the Key 
Ref: data item shown on the top line 
of the display. If *N' is selected, the 
additional choice of continuing with the 
next new record is provided. If you are 
entering all data for each record at one 
time in the [I]nput function, all me- 
mory can be filled (about 27K in a 32K 
machine). However, it makes sense to 
leave about 6K free for use of 
Datng.100. 

3.) [SJUPPLEMENT EXISTING RE 
CORDS — Upon selecting this function 
the prompt to enter the desired record 
appears. A «CR» brings up the next 


record. A valid record identifier (the 
first data item of a record) brings up 
that record item. Upper- and lowercase 
are different characters in this program. 
Therefore, you must be consistent in 
how you enter the data. An invalid 
record identifier causes the program to 
read to the end of the data file, display 
the message END OF FILE and return to 
the main menu. You should not SHIFT- 
BREAK and restart the program; this 
causes the loss of data. 

When scrolling through a record the 
data item label and the data currently 
in that item appear on the screen with 
the Key Ref: data item for that record 
on the top line. Data entered at this 
point replaces the existing data. Editing 
of existing data is not possible from the 
program. (You can enter the data file 
from TEXT to directly edit the data. Be 
careful not to place an extra «CR» in 
the data file as all records after it will 
be out of place.) 

If you enter a «CR», the data is 
unaffected and the program scrolls 
down to the next data item. A '[' alone 
ends modification of the record, leaving 
the current data item and all other data 
items of that record after the current 
item unaffected. The record ID prompt 
appears and operates as previously 
described. In effect, «CR» pages 
through the records and the data items. 

4.) [D] ISPLaY RECORD — Displays 
an additional menu as follows: 





кот displays all the record IDs оп 
the screen; the computer beeps allowing 
you to press the PAUSE key to hold the 
screen. The [A]LL function can be used 
to help find a record you want to 
display, print or supplement. It can also 
operate as a checksum to make sure all 
the records have the correct number 
data items. 

When you select [R]ECORD ID the 
prompt RECORD ID? appears. If you 
enter a valid ID, the computer searches 
for that record and beeps as the record 
starts to appear on the screen. The 
record (data labels and data) scrolls past 
at a moderate rate of speed. Press the 
PAUSE key to hold the screen. If an 
invalid ID is entered, the END OF FILE 
message appears and the [D]isplay 
menu rather than the main menu ap- 
pears. 

5.) [H]RRD COPY — When you select 
the [H]RRD COPY function the RECORD 
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[5| 1 m E PLU LS ΠΕΠ 


LIST OUR 
COLOR COMPUTERS реа А ее 


26-3127 64K Extended Color Computer 2 . $199.95 %169.00 
26-3131 Thinline Disk Drive 0 for Color Computer 299.95 240.00 
26-3018 Extended Basic Kit ; 36.00 


26-3012 Deluxe Joystick 
26-1208 CCR-81 Recorder 
30001170 VIP Integrated Library 
30001110 VIP Writer 

30001210 Telewriter 64 Tape 
30001220 Telewriter 64 Disk 
300091 10 Botek Interface 


25-4001 Tandy 3000 One Disk 512K $2599.00 $1900.00 
25-4010 Tandy 3000 One Disk & 20 Мед HD512K 3599.00 2600.00 
25-4030 512K to 2 Meg Expansion Board . 499.00 395.00 
25-4033 Math Co-Processor for 3000 š 339.00 
25-4050 1.2 Meg Disk Drive Kit for 3000 .. ; 255.00 
25-4062 20 Meg Hard Disk Kit ; 679.00 
25-4101 MS-DOS 3.1/Basic/DeskMate .... у 85.00 


TANDY 100, 200, 600 


26-3901 Tandy 600 Рой Comp 32K 3' DD $1599.00 $1195.00 
26-3904 Basic Rom for Tandy 600 129.95 110.00 
26-3910 92K RAM Upgrade for Tandy 600. 399.95 340.00 
26-3860 Tandy 200 Port Comp 24K 799.00 650.00 
26-3866 24K RAM Memory Exp Chip for 200 199.05 170.00 
26-3802 Tandy 100 Port Comp 24K 499.00 425.00 
26-3816 8K RAM Upgrade for Tandy 100.. 49.95 42.00 
26-3808 Port 31⁄2 Disk Drive for T100 T200 . 199.95 169.00 
26-3815 Portable Disk Case 24.95 21.00 
26-3805 Acoustic Coupler 39.95 34.00 
26-1409 Printer Cable 14.95 12.70 
26-1410 Modem Cable 19.95 17.00 


MODEL 4D 


26-1070 Model 4D 64K 2 FD w/DeskMate .$1199.00 
26-1122 64K Memory Expansion 69.95 
26-1123 Model 3 to Model 4 Upgrade Kit .. 399.00 
26-1134 Model 4 HD Kit for 15 Meg 

26-1530 Multiplan Model 4 

26-1595 Super Scripsit Model 4 

26-1608 DeskMate for Model 4 

26-1635 Profile 4 Model 4 

26-2216 CP/M Plus Model 4 

26-2231 Double Duty Utility 








MODEL 6000 COMPUTERS 


26-6021 Model 6000 512K 2 FD Comp ...$4499.00 $2125.00 
26-6022 Model 6000 512K 1 FD 15 Meg HD. 5499.00 2975.00 
26-6019 Model 6000 256K Memory Kit .... 199.95 185.00 
26-6052 DT-100 Data Terminal 795.00 600.00 
26-1245 10 Meg Disk Cartridge System ... 2195.00 1750.00 
26-6018 6000 Interface Kit for 26-1245 .... 119.95 102.00 
25-3022 1000/1200/3000/Interface Kitfor26-1245 199.95 160.00 
26-4171 35 Meg Hard Drive Primary ; 2545.00 
26-4172 35 Meg Hard Drive Secondary ... j 1895.00 
26-4173 70 Meg Hard Drive Primary I 3350.00 
26-4157 Installation Kit for Primary HD .... 349.00 295.00 





All prices and offers may be changed or withdrawn without notice. Advertised 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C., Visa, add 2%. AX, add 3%. All non- 
defective items returned will be subject to 10% restocking fee. Defective 
items require return merchandise authorization. Call for R.M.A. Number 
before returning. Delivery is subject to product availability. 


CALL 
1-800-248-3823 | 


RADIO SHACK PRINTERS ο NEN 


26-1276 DMP-105 Dot Matrix Printer ..... $ 199.00 $ 169.00 
26-1275 TRP-100 Portable Thermal Printer. 299.00 230.00 
26-1280 DMP-130 100 cps Triple Mode Printer 349.95 285.00 
26-1268 CGP-220 Color Ink-Jet Printer ... 699.00 595.00 
26-2830 PC-695 8-Color Digital Plotter .... · 799.00 680.00 
26-1277 DMP-430 24 Wire Matrix Printer .. 899.00 635.00 
26-1270 DWP-510 43 cps Daisy Wheel ... 1495.00 1225.00 
26-1274 DMP-2100P 24 Dot Matrix Printer. 1495.00 1195.00 
26-1279 DMP-2200 HiSpeed Matrix Printer. 1695.00 1440.00 
26-1269 PT-64 Printer Controller......... 210.00 
26-1498 SW-302 Printer Switch ......... 100.00 
26-1447 Bi-Directional Tractor for DWP 510 219.95 186.95 


TANDY 1200 


25-3000 Tandy 1200 One FD & 10 Meg HD .$1999.95 $1525.00 
25-3001 Tandy 1200 Two FD 256K ...... 1200.00 
25-3044 Graphics Master .............. i 540.00 
25-3061 Captain Multifunction Board ..... 

25-3020 TCS-100 Tape Cartridge System . 1555.00 
25-3021 TCS-100 Interface Kit 1000/1200 . 149.95 120.00 
25-3130 MSDOS/BASIC ............... 76.50 


TANDY 1000 


25-1000 Model 1000 128K 1 FD & DeskMate $ 999.95 $ 705.00 
25-1001 Model 1000 256K 1 FD 10 Meg НО 1999.00 1475.00 
25-1003 300-Baud Modem Board 1000/1200 149.95 125.00 
25-1005 Disk Drive Expansion 1000 ...... 199.95 170.00 
25-1014 RS-232C Plus Interface 1000/1200 99.95 85.00 





















25-1013 1200-Baud Modem Board 1000/1200 299.95 230.00 
25-1025 10 Meg Hard Disk Drive ........ A 559.00 
25-1007 Hard Disk Control Board ........ Å 255.00 
30051030 PJB Multifunction Board 512K ......... 310.00 





MONITORS AND DISPLAY ADAPTERS 


25-1020 VM-4 Monochrome Monitor $149.95 $125.00 
26-5111 VM-1 Monochrome Monitor 199.95 165.00 
25-3010 VM-3 Green Monitor 219.95 185.00 
25-1021 CM-4 Color Monitor 299.95 225.00 
25-1022 CM-10 Color Monitor 459.95 380.00 
26-5112 CM-1 Color Monitor 599.95 475.00 
25-3043 Graphics Display Adapter 299.00 185.00 
25-3046 Deluxe Text Display Adapter 249.95 199.00 
26-3047 Deluxe Graphics Display Adapter 499.95 295.00 


EPSON PRINTERS 


20001015 Homewriter 10............... 
20001025 LX-80 Dot Matrix Printer ....... 
20001035 FX-85 Dot Matrix Printer . ...... 
20001050 НІ-80 4 Pin Plotter ........... 
20002010 RX-100 Dot Matrix Printer ..... 
20002030 FX-286 Dot Matrix Printer ...... 
20003020 LQ-800 24 Pin Head Dot Matrix . 
20003030 LQ-1000 24 Pin Head Dot Matrix . 
10081010 DX-10 Daisy Wheel Printer ..... 
10081020 DX-20 Daisy Wheel Printer..... 
10081030 DX-35 Daisy Wheel Printer..... 

















For Technical Questions and Information on our complete line of 
computer accessories and current prices: 


CALL 1-517-625-4161 
FOR ORDERS ONLY CALL 1-800-248-3823 


Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 
124 6 MAIN ST. PERRY, MICH. 48872 











ID? prompt appears. If you enter a valid 
ID that record is printed along with the 
labels identifying each data item. At the 
end of the record a form feed, 
ΓΗΝΦ( 12), is sent to the printer. If your 
printer uses a different control charac- 
ter, you can change variable M in Line 
1 of the program. When the printout is 
complete or the end of file is reached the 
main menu reappears. If you attempt to 
print a record without the printer 
hooked up, the computer appears to 
lock up. To recover: Press SHIFT BREAK 
to break out of the program and then 
F4 to restart. 

6.) [E]XIT FROM PROGRAM — Returns 
to the Model 100 main menu. Maxfiles 
will be set at two. You should exit from 
the program this way rather than break- 
ing out of it and pressing F8 because 
data might be lost. 


Correcting Errors 

There are three possible sources of 
errors that might occur. They are: 1) 
Entering data with TEXT in a manner 
that changes the number of carriage 
returns in a data file (EF Error); 2) 
Running out of string space claimed in 
the CLERR (OS Error); and 3) Running 
out of memory when using the [S]up- 
plement function (OM Error). 

Correcting the first two problems is 
easy. If the incorrect number of carriage 
returns is in the file, correct it with TEXT 
and use the display [R]LL to make sure 
everything is back in order. For the 
second, edit Line 1 of the program to 
increase string space claimed in the 
CLERR command. 

Correcting the third error is more 
complex. Model 100 BASIC has only 
sequential file access. Most disk-based 
computers have random-direct file 
access. For the Model 100 this means 
that in order to insert data into a RAM 
file as Daco.100 does, the file needs to 
be copied from the top down to the 
point that the replacement is to be 
made. This replacement is actually a 
line substitution. 

To successfully insert a replacement 
line, there must be two copies of the 
data file memory, the old one and the 
new updated one. Daco.100 uses ap- 
proximately 2K for the program and the 
file label. In an otherwise empty 32K 
machine this leaves 27K for data stor- 
age. If data is to be inserted in an 
existing 15K data file, the file, while it 
is being copied, will consume 30K 
(15K*2) and cause an out-of-memory 
error. 

The solution is to break your data 


files into smaller ones (but you can keep 
more than one in memory at a time. We 
can break our 15K data file down into 
three 5K data files. When we insert data 
into one of the 5K files, memory arith- 
metic would be 5K for the old copy of 
the data file being updated, 5K for the 
new copy, 10К for the other two data 
files that are not currently being ac- 
cessed and 2K for the program. This all 
adds up to only 22K. 

The point, therefore, is to have sev- 
eral smaller data files rather than one 
large one. It is best to start out with this 
plan. If you end up with a large data file 
that you still need to supplement, care- 
fully cut and paste it into at least three 
smaller files and add the correct number 
of file headers so the program correctly 
reads the new files. 

If the out-of-memory error occurs 
during the update of an existing data file 
with the [S]upplement function, your 





“Тһе program allows 
forced page breaks 
with the inclusion of 
the form feed 
character recognized 
by your printer." 
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newly entered data merged with the 
existing data is in a file called 2.00. 
However, this file is not complete since 
the copying process was interrupted. 
Look at the end of this file and delete 
any incomplete records with TEXT. You 
must now patch the balance of your 
data file to 2.00. 

Return to the Model 100 menu and 
enter your data file with TEXT. Cut the 
data file with the F7 F6 from the top 
down to the point where entries are 
2.00 stop. Cut and paste the balance of 
the data file to the end of the 2.00 file. 
Now your data file should be complete 
again. Kill your now empty data file 
with Ki11“filename” in BASIC and name 
2.00 as your data file (also in BASIC). 
Do the checksum to make sure every- 
thing is in order and you are set to go 
again. 


Datmg.100 Capabilities 

This program takes the data accu- 
mulated from using Daco.100 and 
merges any data items from any records 
selected into a form we create in RAM 
with TEXT. Any number of copies of the 
completed form can be printed. There 
is an option of saving one copy of each 


completed form on cassette tape. The 
data file can be entered from RAM or 
cassette tape. Obviously, there cannot 
be both tape input and output in the 
same run. 


Datmg.100 Set Up 

Prior to running the program you 
must arrange the input and output 
devices (printer, and input or output, 
data file in RAM or tape and label file 
in RAM. 

The data file used must be one created 
by Daco.100. It can be in RAM or on 
tape, but having the data Ше in RAM 
has two advantages: 1) faster execution 
and 2) use of the program's second pass 
search if the records selected are listed 
in a different order than they appear in 
the RAM data file. On the other hand, 
having the data file on tape uses no 
memory. 

The label file must be in RAM and 
must be the same one that was used with 
Daco.100 to create the data file. 

The user must also open a RAM file 
with the name JOBSPC.DO. This file 
must contain the record ID of each 
record that will be accessed in the data 
merge run. The ID is the first data item 
of each record. Each record ID should 
be followed by a comma (,) with the 
number of copies desired, then followed 
by a «CR» For example: 


етін 200. 

(Jonesy ο ος 
The program forces uppercase for inter- 
nal use in the ID so records are not 
missed for this reason. 

If the data file is in RAM, it will not 
matter if the records requested are out 
of order as the program makes two 
passes through the data before giving 
up. If the input data file is on tape, be 
sure the records in JOBSPC . DD are in the 
same order that they appear in the data 
file. The program reads to the end of the 
file looking for the record. The only way 
to be sure if this has occurred is to let 
the tape run to the end. 

You must also create the blank form 
in a RAM file using TEXT; the form can 
have any format. The program takes 
care of left and right margins. You can 
specify these during the start up of the 
program. You should include the de- 
sired number of <CR>s at the top of the 
form to specify the top margin. 

The program allows forced page 
breaks with the inclusion of the form 
feed character recognized by your prin- 
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ter. This can be specified during startup. 
The program assumes you are using 
paper with 66 lines. A page break is 
automatically generated after printing 
55 lines. The program takes care of page 
breaks at the end of each document, so 
do not insert the form feed CHR$ at the 
end of the document. 

In order to indicate where data is to 
be inserted use the down-arrow graph- 
ics symbol, ‘}’, for example, “14,” selects 
the city-state-ZIP data item to be in- 
serted at that point. None of the three 
characters take up space in the com- 
pleted form, so format your form ac- 
cordingly. 

The print editor in the program 
supports non-printing control charac- 
ters for such printer functions as com- 
pressed font, double-strike printing, 
underlining, etc. You should include 
such special characters (ECHR$) in the 
form with CHR$(12). Consult your 
printer manual for the available func- 
tions and codes. 


Running Datmg.100 

The program has been designed to 
allow you to start it and let it run 
unattended. It first prompts you to 
enter the label and data filenames. They 
should be entered in the same manner 
asin Daco.100. Next, you are prompted 
to enter the form filename. 

The printing parameters are the next 
input. Each has a default value indi- 
cated. All on the same screen, you 
should enter: left margin, right margin, 
single- or double-spaced, ASC# of the 
form feed character of the printer used, 
and tape output or not. 

The screen then clears with only 
RECORDS NOT FOUND: remaining on the 
screen. The IDs of those records not 
located are printed on the screen as a 
run report. At this point, there is a pause 
of several seconds to a minute and a half 
long as the program searches for the 
first record specified in JOBSPC . DO and 
merges the selected data items into the 
form. 


When the merging is done, the pro- 
gram edits the completed form to the 
printer, RAM and tape if requested (if 
a tape copy is being made each form 
merged will be in a separate file with the 
filename CAS:C). The program pauses 
after each line to edit the next line. The 
printing of additional copies after the 
first will be faster. The merged and 
edited RAM copy of the form is 
dumped to the printer. There is no pause 
for editing. 

When all forms have been printed, 
the RECORDS NOT FOUND report is on the 
screen. The two copies of the form 
created by the program will have been 
killed and Maxfiles set to zero. 

Datmg.100 is a flexible program 
because it allows you to define the blank 
form in any format. What may not be 
apparent is that your data item length 
as collected by Daco.100 can be up to 
255 characters. Datmg.100 merges that 
entire data item where indicated and 
edits the line so as not to break words 
in the middle. o 





Listing 1: 


g ' DATMG.199 BY BENNETT D. SHULMAN COPY 
RIGHT 1984 ALL RIGHTS RESERVED 

1 GOTO37 

2 OPEN"E.DO"FORINPUTAS4 

3 IFEOF(4)THENCLOSE4 : RETURNELSELPRINTINP 
UTS (1,4); :GOTO3 

4 OPENEFORINPUTAS3 :OPEN"M. DO" FOROUTPUTAS 
5 

5 IFEOF(3)THENCLOSE3: CLOSES: RETURN 
6 A=INPUTS (1,3) 

7 IFA=CHRS$ (153) THENINPUT#3 ,W: PRINT#5 , BCW 
) ;ELSEPRINT#5 ,A; 

8 GOTOS5 

9 OPEN"M.DO"FORINPUTAS5:OPEN"E.DO"FOROUT 


PUTAS4:IFTP-lTHENOPEN"CAS:C.DO"FOROUTPUT 
AS6 


10 FORQ=1TOV+1-LEN(I) | 
11 IFEOF(5)THENG-I-CHRS (P):GOSUB25:GOSUB 
21: CLOSE4 : CLOSES : CLOSE6 : I="": T=9: RETURN 
12 A=INPUTS(1,5) 

13 IFA=CHRS$(19)THEN11 

14 IFA=CHR§ (13) THENG=I : GOSUB25 : GOSUB21:I 
-"":607010 

15 IFA=CHRS$ (Р) THENG=I+A:GOSUB25 :GOSUB21: 
І-"":А-"":Т-Й:С0Т010 

16 I=I+A 

17 КЕХТ 

18 FORQ=LEN(I)TO@STEP-1 

19 IFMID$(I,Q,1)-" "THENG-LEFT$(I,Q-1):I 
=RIGHTS (1, LEN(I) -Q) :GOSUB25:GOSUB21:GOTO 
19: GOSUB25 :GOSUB21:GOTO19 

26 NEXT 


21 LPRINTSPACES(S);G:PRINT*4,SPACES(S);G 
:T=T+1 : IFT>SS5THENLPRINTCHRS (P) ;: PRINT#4, 
СНВҺ9(Р);:Т7- 

22 IFTP-lTHENPRINT*6,SPACES(S);G:IFT»-56 
THENPRINT#6 , CHRS(P); 

23 IFZ=LANDT=<56THENLPRINT: PRINT#4, :T=T+ 
1: IFTP=LTHENPRINT#6, 

24 G="": RETURN 

25 IFLEFT$(G,3)-" "THENRETURN 

26 IFLEFT$(G,1)-" "THENG-RIGHT$(G,LEN(G) 
-1):GOTO26ELSERETURN 

27 IFEOF(2)THENKILL"M.DO":KILL"E.DO":MAX 
FILES-Q:END 

28 INPUT#2,F,M:K=F:GOSUB31:F=K 

29 IFEOF(1)ANDX=LTHENPRINTF;" ";:CLOSEIl: 
GOSUB34:X-0:RETURNELSEIFEOF(1)THENCLOSEl 
:GOSUB34:X21:GO0TO29 

30 FORQ-1TON:LINEINPUT41,B(Q):NEXT:K-B(l 
) :GOSUB31: AA=K: IFAA=FTHENO=1 : X=: RETURNE 
LSE29 

31 FORZ1=1LTOLEN(K) :Z2=ASC(MIDS$(K,Z1,1)) 
32 IFZ2>96ANDZ2<123THENMIDS (K,Z1,1)=CHRS 
(22-32) 

33 NEXT:RETURN 

34 OPENDFORINPUTAS1:FORQ-1TOU:LINEINPUT& 
1,H(Q):NEXT:RETURN 

35 GOSUB27:IFO-lTHENO-:GOSUBA4:GOSUB9:IF 

M=1THEN3 5ELSEFORQ=2TOM: GOSUB2 : NEXT 

36 GOTO35 

37 CLS: CLEAR17@@ :MAXFILES=6 : DEFSTRA-K:DE 
FINTL-Z: PRINT: FILES: INPUT"LABLE FILE AND 
DATA FILE NAMES "SLES,D:CLS:PRI 

NT:FILES:INPUT"FORM FILE NAME";E:OPENLF$ 
FORINPUTAS1 
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38 INPUT#1,U,N,R:DIMB(N) ,H(U) :CLOSE:S=19 
:Y=79:CLS:PRINT: INPUT"LEFT MARGIN <CR>=1 
9";S:INPUT"RIGHT MARGIN <CR>=79";¥:V=Y-S 
:INPUT"[S]INGLE OR [D]OUBLE SPACE <CR>=[ 
S)";J:IFJ="D"ORJ="d" THENZ=1 

39 OPEN" JOBSPC.DO"FORINPUTAS2 : GOSUB34 

δῷ P-12:INPUT"FORM FEED CHR$ ASC# <CR>=1 
2";P 

41 INPUT"DO YOU WANT CASSETT OUTPUT Y/N 
«CR»—N" ;C:IFC-"Y"ORC-"y"THENTP-1 

42 CLS:PRINT"RECORDS NOT FOUND: "; 

43 GOTO35 


Listing 2: 


g ' DATA COLLECTOR -- DACO.199 -- BY B 
ENNETT SHULMAN. COPYRIGHT 1984 

1 CLEAR1299:MAXFILES=2 : DEFINTL-V: DEFSTRA 
-K:M=12:D=".DO":CLS: PRINT: FILES: INPUT" LA 
BEL FILE AND RECORD FILE NAMES "; 

G, J: IFRIGHTS$ (J, 3)<>DTHENJ=J+D : OPENGFORIN 
PUTAS]: INPUT#1,T,L,S:DIMA(L) ,C(L) , F(T) :F 

ORN=1TOL: LINEINPUT#1, C(N) : NEXT: CLOSE: CLS 
: GOSUB68 

2 H=INKEYS : IFH=""THEN2 

3 ONINSTR("FISDHEfisdhe" ,H)+1GOSUB4,6,19 
,21,28,56,5,6,10,21,28,56,5 

4 H="":GOTO2 

5 MENU 

6 GOSUB52:CLS:PRINT:FORQ-1T0T:PRINTF(Q): 

NEXT 

7 PRINTG287,"[M]ENU"; 

8 I-INKEYS:IFI-""THENB 

9 IFI="M"ORI="m"THENCLOSE : GOSUB68 : RETURN 
ELSES 

19 OPENJFORAPPENDAS1 

11 CLS:GOSUB45 

12 PRINT: PRINT"DO YOU WANT TO CHANGE ANY 
ENTRY Y/N 

13 H=INPUTS$(1) 

14 IFH="Y"ORH="y"THENU=L : GOSUB45 :GOTO12 
15 V=1:GOSUB43 

16 PRINTQ247,"[M]ENU"; : PRINT@287, "<SPACE 
BAR> TO CONTINUE"; 

17 H=INKEYS : IFH=""THENL7 

18 IFH="M"ORH={"m"THENCLOSE : GOSUB68 : RETUR 

N 

19 IFHO-CHR$(32)THEN17 

29 GOTO11 

21 GOSUB52:OPEN"Z.DO"FOROUTPUTAS?2 : FORN=1 
TOT: PRINT#2 , F(N) :NEXT: 7-2 

22 U-1:IFEOF(1)THENGOSUB74 : GOSUB68 : RETUR 

N 

23 Ke"":CLS:PRINT:INPUT"RECORD ID";K 

24 IFK=""THENGOSUB54 : GOSUB45 : GOSUB43:GOT 

022 

25 IFEOF(1) THENGOSUB74: GOSUB68 : RETURN 

26 GOSUB54: IFK<>A(1)THENGOSUB43 :GOTO25 

27 GOSUB45 :GOSUB43:GOTO22 
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28 CLS: PRINT: PRINT"DISPLAY MODULE": PRINT 
TAB(7);"[A]LL RECORD ID'S": PRINTTAB(7) ;" 
[R]ECORD ID ?":PRINTTAB(7);"[M]ENU"; 

3g H-INKEYS:IFH-""THEN3Q 

31 IFH-"A"ORH-"a"THEN35 

32 IFH-"R"ORH-"r"THEN39 


33 IFH-"M"ORH-"m"THENCLOSE:GOSUB68:RETUR 
N 


34 601030 

35 CLS:PRINT:GOSUB52 

36 IFEOF(1)THENBEEP:FORN-0T0750:NEXT:GOS 
UB75:CLOSE:GOTO28 

37 GOSUBSA:PRINTA(1);" ";:IFPOS(f)»39THE 
NPRINT 

38 GOTO36 

39 GOSUBS2:GOSUB69 

40 IFA(1)-""THEN28ELSEIFK-A(1)THENAlELSE 
28 

41 CLS:BEEP:PRINT:FORN-1TOL:PRINTC(N):PR 
INTTAB(3) ;A(N) : FORO=9T069¢ : NEXT: NEXT : GOS 
UB75 

42 CLOSE:GOTO28 

43 FORN=1TOL: PRINT#V,A(N) :A(N)="":NEXT:R 
ETURN 

45 FORN=LTOL:CLS:PRINT@@,"KEY REF: ";A(S 
):PRINT@85 , C(N) : PRINTA(N) 

46 PRINT: LINEINPUTE 

47 IFE="{"ANDU=1THENCLS : GOTO51 

48 IFE="["THENFORR=NTOL:A(R)="":NEXT? CLS 
:GOTOS1 

49 IFEO""THENA(N)=E 

50 CLS:NEXT 

51 U-Q:RETURN 

52 OPENJFORINPUTAS1 

53 FORN=LTOT: LINEINPUT#1 , F(N) :NEXT:RETUR 
N 

54 FORN=1TOL: LINEINPUT#1 ,A(N) : NEXT: RETUR 
N 

55 PRINT: PRINT"END OF FILE": BEEP: BEEP: FO 
RN=LTOLE3 : NEXT: RETURN 

56 GOSUB52:GOSUB69 

58 IFK=A(1)THENS 9ELSEGOSUB68 : RETURN 

59 FORN=1TOL: LPRINTSPACES (19) ;C(N) : LPRIN 
TSPACES (15) ; : FORP-1TOLEN(A(N) ) : BEMIDS (A( 
N),P,1):LPRINTB; 

64 IFB=CHRS (32)ANDLPOS(%)>65THENLPRINT: L 
PRINTSPACES (15); 

65 NEXT 

66 LPRINT: LPRINTSPACES$ (15) : NEXT: LPRINTCH 
RS (M) : CLOSE: GOSUB75 : GOSUB68 : RETURN 

68 CLS:PRINT:PRINT" MAIN MENU":PRINTTA 
B(7);"[F]ILE LABEL":PRINTTAB(7);"[I]PUT 

NEW RECORDS":PRINTTAB(7);"[S]UPPLEMENT E 
XISTING RECORDS":PRINTTAB(7);"[D]ISPLAY 

RECORD":PRINTTAB(7);"[H]ARD COPY":PRINTT 
AB(7);"[E]XIT FROM PROGRAM";:RETURN 

69 CLS:PRINT:INPUT"RECORD ID";K 

79 IFEOF(1)THENCLOSE: GOSUB55 :GOSUB75:RET 
URN 

71 GOSUB54 

72 IFK=A(1) THENRETURN 

73 GOTO7¢ 

74 KILLJ:NAME"Z.DO"ASJ:GOSUB55 : RETURN 

75 FORN=1TOL:A(N)="":NEXT : RETURN 
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INDEX TO PCM 
July 1985 - June 1986 
This is the second index to PCM and covers the 
period July 1985 to June 1986. The only change 
from last year is that items that are contained in 
PCM ON DISK are indicated with а 9 and are also 
listed at the end of the index, arranged by program 
name. Items that have bar coded listings are indi- 
cated with a *, and are also listed separately. 


The number of items in each subject heading is 
listed below—the number in brackets indicates the 
total number of items published since July 1983. 


GENERAL - 19 (36) 
MSDOS - 99 (159) 
MSDOS-REVIEW 71 (97) 
PORTABLE - 28 (172) 
PORTABLE-EDUCATION - 0 (5) 
PORTABLE-GAME - 0 (13) 
PORTABLE-REVIEW - 19 (75) 


TOTAL NUMBER OF ARTICLES - 236 (557) 
PERSONAL AUTHORS - 144 (375) 


BAR CODE LISTINGS - 20 (47) 
PCM ON DISK - 47 (47) 





Leslie Foster is a librarian with Dalhousie Law 
Library in Halifax, Nova Scotia. In August 1985, 
Radio Shack lent him 12 Model 100s to aid in 
reconstructing the library after a fire. 


πμ. 
GENERAL 


Barden, William, Jr. "In defense of BASIC." (1985, 
December) 58 

Foster, Leslie А. "Two years of PCM." (1985, July)57 
— Index from July 1983 to June 1985. 

Graham, Randy. "Finding out which fare is fair." 
(1985, July) 43 — Airline schedules with a modem. 

Graham, Randy. "Of old friends, lead time and elec- 
tronic publishing." (1985, November) 48 


Leslie A. Foster 





Graham, Randy. “We're talking graphics transmis- 
sion—get the picture?" (1985, August) 74 — Trans- 
ferring graphics by modem. 

Himowitz, Michael J. “Big print." (1986, April) 58% € 
— Print in Jarge letters. 

Humphress, Danny. "Two new stars from Texas." 
(1985, December) 10 — Introduction to the Tandy 
3000 and 600. 

Keen, Dan. "Interpreting BASIC's interpreter." (1986, 
March) 108 

McCormick, John. "Computer dictionary." (1986, 
June) 25 — Definitions of computer terms. 

McCormick, John. "A good PILOT for lost pro- 
grammers.' (1986, June) 84 — Tutorial on PILOT 
language. 

Орредаһі, Carl. "Wrist terminal." (1986, April) 33 — 
Close look at the Seiko wrist terminal. 

"PCMfest Reporter." (1986, February) 55 — Report 
on PCMfest in Princeton, October, 1985. 

"PCMfest Reporter." (1986, May) 94 — Report on 
PCMfest in Palo Alto, February, 1986. 

Sanders, Wayne. "The wind chill factor." (1986, Feb- 
ruary) 36x * 

White, Richard A. "A brief survey of basic spread- 
sheet functions." (1985, November) 36 

White, Richard A. "The car shopper's spreadsheet." 
(1985, July) 66 — Correction, August 1985, p. 31. 

White, Richard A. "Let a spreadsheet dispel the 
gloom of form creation." (1985, August) 31 

White, Richard A. "Preparing for the tax collector." 
(1985, September) 75 — Use the spreadsheet for 
tax time. 

White, Richard A. "Spreading on more spreadsheet 
functions." (1985, December) 17 





MSDOS 


Alsop, Brian H. "Supercharge your Tandy 1000." 
(1986, May) 105 — Increase the speed of the 
Model 1000. 

Alsop, Brian H. "Upgrade your Tandy 1000." (1986, 
February)25 — Add a hard disk and more memory. 

Baade, Еізпег H. "Household inventory." (1986, 
March) 36% 








Ballard, Bobby. "The integrated desk part 1." (7985, 
November) 61 — Series on DeskMate." ' 

Ballard, Bobby. "The integrated desk part2: To boot 
or not to boot." (1985, December) 26 

Ballard, Bobby. "The integrated desk part3: Becom- 
ing a ‘power user' with Telecom." (1986, January) 
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Ballard, Bobby. "The integrated desk part 4: Going 
online with Telecom—computerize your logon 
procedure with analog files." (1986, February) 20 

Ballard, Bobby. "The integrated desk part 5: More 
help!" (1986, March) 25 — Get more out of help 
screens. 

Ballard, Bobby. "The integrated desk part 6: Tips, 
tricks and letters." (1986, April) 49 

Ballard, Bobby. "The integrated desk part 7: Turbo 
powered DeskMate." (1986, Мау) 87 • 

Ballard, Bobby. "The integrated desk part 8: A look 
at TEXT." (1986, June) 30 

Ballard, Bobby. "Return address label maker." (1986, 
May) 80% 

Barden, William, Jr. "Adventures of a different sort." 
(1985, July) 19 — Hints on sorting data. 

Barden, William, Jr. "Assembly language on the 
Tandy MS-DOS computers." (1985, October) 27 
Barden, William, Jr. "High praise for sequential 
files." (1985, August) 18 — Application to aid in 

typesetting. 

Barden, William, Jr. "How to make cents of your 
MS-DOS system." (1986, May)96* — Methods of 
displaying numbers. 

Barden, William, Jr. “In defense of other languages.” 
(1986, February) 67 — Discussion of BASIC, 
PASCAL and C. 

Barden, William, Jr. “Interfacing with the Tandy 
1000's joystick ports.” (1986, January) 34% 

Barden, William, Jr. “The sounds of science.” (1985, 
September) 11 — Discussion of sounds in the 
Model 1000. 

Barden, William, Jr. “Using Assembly Language on 
the Tandy PC's." (1985, November) 52 

Barden, William, Jr. “What a bunch of characters!” 
(1986, June) 10* — Create new character sets on 
the screen. 

Barden, William, Jr. “What are all those strange MS- 
DOS commands, anyway?" (1986, March) 70% 
Barden, William, Jr. "Whatare all those strange MS- 
DOS commands, anyway part2." (1986, Аргі!)40% 
Blair, Bruce. "Тһе ‘Tandy typer." (1985, September) 

41 — Simplified word processor. 

Boozer, Rick. "Taking turbo powered graphics fora 
spin." (1986, January)52 — Graphics with Pascal. 

Bruey, Alfred J. "Using random files." (1986, April) 
25e 

Chester, Kevin. "Sketch." (1985, October) 11 — 
Draw pictures on the 1000/1200. 

Covington, Robert D. "Access your disk directories 
from BASIC." (1985, September) 34 

Covington, Robert D. "Accessing MS-DOS com- 
mands from BASIC." (1985, August) 41 

Covington, Robert D. “Compiling BASIC programs." 
(1986, March) 56* — Discussion of the GW- 
BASIC compiler, and updates to DB-11 database. 
File SUBCITY in April PCM ON DISK contains 
further updates. 

Covington, Robert D. "Create a small disk zapper 
from three easy subroutines." (1985, October) 53 
— Read disk sectors from BASIC. 

Covington, Robert D. "DB11: The super store, search 
and sort system for your computer part 1." (1986, 
January) 17 

Covington, Robert D. "DB11: A towering database 
system." (1986, February) 57% 

Covington, Robert D. "A potpourri of BIOS goo- 
dies." (1985, November) 41 

Covington, Robert D. "Using machine language 
subroutines in BASIC." (1985, July) 10 

Crockett, Davy. "Video character editor." (7986, 
May) 66* — Change display on screen in Model 
2000. 

DuBois, Marshall K. "A handy little printer setup 
utility." (1986, February) 789 

Goeldner, Cecil M. "A very BASIC menu." (1985, 
October) 43 — Menu utility for programming. 

Graham, Randy. "Subsequent thought on graphics 
hunting." (1985, October) 41 

Harrell, John B., III. "A batch of new ideas." (1986, 
March) 77* — Tutorial on MENU.COM. 
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TEXT POWER. 100/102 


Portable 100 Magazine: ... "THE BEST FORMATTER THERE IS FOR THE 
100" ... is even better than ever! 

• After more than 2 years, still the most compact and still the best text 
formatter! Packed with: powerful features not found in word processors 
on some desktop computers. TEXT POWER uses less than 2.7K of 
precious RAM, and is written 100% in machine language for speed 
and efficiency. 

Now available in both parellel and serial versions, with optional support 
for International/French characters. 


Optional compatibility for Disk Video Interface, Tandy portable drive 
(FLOPPY.CO) or Chipmunk drive. 

TEXT POWER supports the following features: Footers and Headers 
that can be turned on/off or changed from within text, Page 
numbering, Tab characters, MERGE ТЕХТ”, Right 


Justification, Centering, Left & Right margin control with "in-file" commands, and 


much, much more... 


TEXT POWER also supports the following printer independant, easy-to-use 
embedded control commands: 





^ В Boldface ^ F Near Letter Quality 10 cpi 
^ C Condensed T7cpi A G Near Letter Quality 12 cpi 
^ D Double Strike ^ H Super Script 
^ E Elite 12 cpi A L Sub Script 
ж __ 4.42 CHUGO 
Apr 23,1986 Mon 21:35:87 
TEXT POWER 188 
A Copuriaht 192325 Huge Ferreyra 
z: E ΞΡ = 
Done | газ Pas Toph Both қты с 
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^ U Undeline 
^ W Wide/Extended 
^ N Microfont 

^ R Red or Italics 





* SET MENU 
At the stroke of a single function 
key, each of the 
displayed vital parameters can easily be modified. There is no 
need to reset parameters each time a document is printed, since 
TEXT POWER "remembers" the previous values stored. And 
TEXT POWER conveniently sets default parameters for standard 
usage. 


PAGE PLOT" 


The most powerful and time-saving feature that exísts in text 
formatters for portable computers today! You can graphically see 
your formatted text before printing! And Hugo Ferreyra set the 
standard by inventing and implementing PAGE PLOT™ first in 
TEXT POWER 100, before Write-Rom, Lapword, T-Word or any 
others!!! 


* DISPLAY FEATURE 


Before printing, view all the headers, footers, tabs, centering, 
merges, page numbers, and the actual formatted text without 
any of the embedded commands. Scrolling can be halted or 
resumed at any point, and important format information is shown 
at the end of every page. 


Now even better. Improvements in TEXT POWER 100 Version 1.42 over Version 1.38: 


• TABs are fully supported, shown during plot and replaced with the 
correct number of non-breakable spaces. 

* TEXT files can be accessed or created from within TEXT POWER for 
increased versatility. 

* FORM FEED your printer directly from within TEXT POWER's Main Menu 
by pressing the (LABEL) key. 

* PROGRAM FLOW is even more consistent for all functions, with vital 
parameters displayed after each page. 

* PASS COUNTER implemented to help. recognize which copy is being 
processed when merge is in use. 

* DOUBLE SPACE now selected as an “іп file" command to turn the 
feature ON or OFF anywhere during printing. 

* FOOTER ἃ HEADER handling is simplified & easier to use. 


* "Plot" is improved and now shows page boundaries when there is room 
on the screen. 

* (.DO) files only are listed when entering any function, with a default 
filename proposed to save typing. 

* START & STOP file processing anywhere within the text, using this 
embedded command. 

* LINE FEED support is now set internally within TEXT POWER. No need 
to rely on external utilities like FIXLF. 

* (ESC) in almost every situation can be used to abort any TEXT POWER 
function. 

* ERROR HANDLING is improved. For example, PRINTER NOT READY error 
does not "HANG-UP" your Model-100 but instead beeps to warn you of 
the situation. 
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DISK POWER 100/102/200 is a stand-alone Disk Operating System for the Tandy Portable 
Disk Drive that completely replaces FLOPPY.CO, and comes with an extension to BASIC 

which can be loaded only when needed. It has operational & size advantages over any 

other operating system on the market. 
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— Number of characters in the BASS = "o= агр 
PASTE buffer. 


* DISK DIRECTORY: 

—In both directories, filename extensions replaced by a single | BUDGET 
lowercase character. No waste of screen space on redundant КНР EC 
information. This allows all 40 disk files to be displayed at НІН c 
once! No scrolling necessary. | МОМІТЕР 

—Exclusive multiple file selection feature via single keystroke, to SOR 
perform any task on upto 20 files at once! 

—"ALL" function key automatically selects as many as 20 files, | 
beginning at the current cursor position, to allow Load “ДШ”, | 
Save “АШ”, Kill “ALL”, etc. | 


* EXTENSION TO BASIC: | —Load & Save disk .DO files from within TEXT and TEXT 
— OPEN disk data (.DO) files for input, output or append. Commands | POWER, using the familiar F2 & F3 function keys. 
such as EOF, Print, Input are implemented. Full support for Load, | - EXTENSION TO TELCOM: 
Save, LFiles, Merge, etc. | Ln inci | 
— All the extended functions of DISK POWER BASIC use similar syntax | ye suger isp ied Ἐν "B 
to existing commands, so that your favorite BASIC programs could һе communications. You can even see your files while uploading 
converted to take advantage of the Portable Disk Drive in seconds! With DISK POWER, it is all possible! 4 
— DISK POWER provides built-in protection against system crashes „ 24 HR. BBS SUPPORT HOTLINE: У 


| 
ЫНЫ users try to perform two different disk functions at the same | —Using STAT: ΜΒΝΊΕ, 10: Disk, PW: Power (514) 457-2917 
DISK POWER is the only Disk Operating System which provides all of these INNOVATIVE features. 
Written 100% in machine-language to make it ULTRA-fast. 


TEXT POWER 100/102 $49.95 US | DISK POWER 100/102/200 $49.95 US 


* RAM DIRECTORY: FLüPPTc TSCERFc LOADERb RAMEILb DATA d : 

— 80 character "WINDOW" NOTES d TEST b DPi8BG c EUGGERG SAVRAMb — File length of highlighted file. 
feature for .DO or .BA files. πμ BUDGET SP16 с --ὁ-- -- 251 — 7 lines of actual text packed 
Also displays TOP, END, EXE | — πον ке же өңін gei decret Г rales mir ze into the two line window. «<< 
ο ανν bi CO files. | DISK POWER 166 1562 1956 Hugo Ferreyra — Total FREE bytes available. 

— Number of bytes occupied by a? 15 W — Value of HIMEM 
an unsaved BASIC program.— | ii сі OU. : fi ; 
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* EXTENSION TO TEXT: 


or SAVE by buying the ULTRA POWER program pack: DISK POWER/TEXT POWER 100 FOR ONLY $89.95 US 


To order TEXT POWER , specify configuration and printer(s) used. The basic price includes support for one printer. Please add $10.00 for each additional 
printer you wish supported. All U.S. orders shipped from within the USA. depo no custom forms, sales tax or duty required. Add $3.00 S&H to each 
order. Send your original cassette to the address below, and receive an updi ted version of Text Power (V. 1.42) for only $24.95 US. plus S & H. 


No surcharge for VISA or MC To order, call TOLL FREE: 


USA (Except N.Y.) 1-800-448-4511 Ext. 313 NEW YORK stare ому 1-800-962-1480 Ext. 313 
ONTARIO & QUEBEC 1-800-255-1133 Ext. 313 


or send CHECK or MONEY ORDER to: 


= ULTRASOFT INNOVATIONS PO. Box 219, Ste. Anne de Bellevue, Québec 
CANADA H9X 3R9 (514) 457-9293 (9-5 EST) 


*ULTRASOFT:* 


Ultrasoft and Ultrasoft logos are registered trademarks of Ultrasoft Innovations Inc. Other Trade Marks: Tandy - Tandy Corp., Write-Rom - P.C.S.G. INC., T-Word - Travelling Software Inc., Lapword - Jim 
Irwin, Chipmunk - Holmes Eng. 
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year of the network." (1985, August) 35 — Discus- 
sion of local area networks. 

Humphress, Danny. "dBASE tutor part 13 — once 
you get the picture what do you say?" (1985, July) 
38 

Humphress, Danny. "dBASE tutor part 14 — dMAIL 
project one." (1985, August) 71 — Mailing list pro- 
gram. 

Humphress, Danny. "dBASE tutor part 15 — adding 
reports and labels to our mailing list program." 
(1985, September) 49 

Humphress, Danny. “dBASE tutor part 16 — build- 
ing a dBASE menu." (1985, October) 74 

Humphress, Danny. "The device driver: An MS-DOS 
power feature." (1985, August) 63 

Humphress, Danny. "Exploring ANSI.SYS." (1985, 
September) 72 

Humphress, Danny. "Follow the yellow brick ‘path. 
(1985, July)64 — Tutorial on MS-DOS directories. 

Humphress, Danny. "Prompts with style." (1985, 
October) 24 — Hints on using the PROMPT com- 
mand. 

Humphress, Danny. "Two new stars from Texas." 
(1985, December) 10 — Introduction to the Tandy 
3000 and 600. 

Hyre, Leonard. "The electric blackboard." (1986, 
February) 10% — Mathematics exercises. 

Hyre, Leonard. “The handi 1000." (1985, November) 
27 — Calculate materials for home improvement 
jobs. 

Hyre, Leonard. “IRA projection." (1986, March) 46 • 

Hyre, Leonard. "The land of the cave bear." (1986, 
March) 10* — Adventure game. 

Hyre, Leonard. “The loan officer." (1986, May) 57» 
— Amortization schedules. 

Hyre, Leonard. "PC phone booth." (1986, June) 33 
— Mailing list, phone number directory. 

Hyre, Leonard. "Robomath." (1985, December) 71 
— Educational program to drill in math. 

Hyre, Leonard. “Typing 1000." (1985, November) 18 
— Learn to type. 

Ingle, Frank Н. “Coping with cassettes." (1986, Мау) 
49x e 

Ireland, Nathaniel Ғ. "Cooking with your portable." 
(1985, December) 68 — Recipe file. 

Ireland, Nathaniel F. "Portable trip companion." 
(1985, October) 38* 

Ireland, Nathaniel F. “Your 100 takes a licking and 
keeps on ticking.” (1986, Мау) 30. 9 — Indicate 
elapsed time in hundreths of a second. 

Jackson, Barb ; and Jackson, Joan. “Rickety downs." 
(1986, January) 31* — Horse racing game. 

Keen, Dan. "Interpreting BASIC's interpreter." (1986, 
March) 108 

Kemp, H. W. "Fun with filters." (1986, January) 48* 
— Graphics demos. Corrections, March 1986, p. 
105. 

Krueger, Roger F. "The fantastic label machine." 
(1985, November) 13x — Make mailing labels. 
Larrison, John. "Super editor." (1986, April) 23% € 

— Machine code editor. 

Lee, Peter T. "Graphics screen dump." (1986, March) 
100* — Correction, May 1986, p. 109. 

McCormick, John. "Computer dictionary." (1986, 
June) 25 — Definitions of computer terms. 

McCormick, John. "A good PILOT for lost pro- 
grammers." (1986, June) 84 — Tutorial on PILOT 
language. 

McCormick, John. "Hitting the right keys." (1986, 
June) 98¢ — Improve numeric keypad skills. 

McCormick, John. "Wooing Ms.DOS." (1986, April) 
21 — Hints on directories. 

McDowell, Linwood. “Easy keys." (1985, December) 
32* — Creative use of function keys. 

Melski, John. "A BASIC text formatter for your 
Tandy 1000, 1200 and 2000." (1985, September) 27 

Miller, Chris. “Portable protection." (1986, January) 
79* — Hide your files on the portable. Correction, 
March 1986, p. 9. 
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Megabytes for Mini-Bucks 


Tandy 1000 Hard Drives 
by Hard Drive Specialist 








Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part 425-1004. 


Ordering Information 


Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


— Disk System Features: 


10 
20 
42 
10 
20 
42 


All sizes rated after formatting. 
One secondary drive may be added. 


Error checking and correcting controller. 


Software drivers included. 


Buffered seek drives for improved access time. 


Built in power up diagnostics. 
Plated media for long disk life. 
Gold connectors used throughout. 
1 year warranty. 

Boots directly from Hard Drive. 
Uses Tandy 1000 MS DOS. 


Megabyte Internal................ 
Megabyte Internal................ 
Megabyte Ітегпа!................ 
Megabyte External............... 
Megabyte External............... 
Megabyte External............... 


Hard Drive Specialist 


16208 Hickory Knoll 
Houston, Texas 77059 
1-713-480-6000 


Order Line 
1-800-231-6671 
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Mills, Bob. "Metric calculator." (1986; June) 73e — 
Converting measurements with PASCAL. 

Mills, Robert C. "Galactic math war." (1986, April) 
10* — Math tutor game for the Model 1000. 

Murray, Dennis ; and Ory, Horace. "Efficient alloca- 
tion of hard disk storage." (1985, December) 55 

Nickols, Kevin. "Delphi bureau: 'The' gathering 
place for Tandy computer users." (1986, March) 
30 


Nickols, Kevin. "Delphi bureau." (1986, February) 
38 — Latest news from Delphi. 

Nickols, Kevin. "Delphi bureau." (1986, April) 54 

Nickols, Kevin. "Delphi bureau." (1986, May) 108 — 
Uploading of files. 

Nickols, Kevin. "Uploading files to Delphi." (1986, 
June) 97 

Oppedahl, Carl. "Emergency power for your Tandy 
600." (1986, February) 52 

Oppedahl, Carl. "Manipulating RAM files in the 
Tandy 200." (1985, August) 57 

Oppedahl, Carl. "Wrist terminal." (1986, April) 33 — 
Close look at the Seiko wrist terminal. 

Petersen, Marty. "The power of Open Access." 
(1985, September) 68 — A close look at this inte- 
grated program. 

Preble, Laurence D. "If X equals zero the X equals 
ten trillion." (1985, September) 39 — Discussion of 
a 'bug' in the Model 200 BASIC. 

Qualls, Bill. "A better input processor." (1985, Au- 
gust) 49 — Prevent data entry errors. 

Ramella, Richard. “Ада search and replace power to 
your portable's text-handling functions." (7985, 
September) 25* 

Ramella, Richard. "Bit parade." (1985, December) 
30 — Compose melodies. 

Ramella, Richard. "BOA: The main squeeze for text 
files." (1986, April) 36x ο — How to compact text 
files. 

Ramella, Richard. “Sardine.” (1986, March) 22* — 
Pack programs to conserve space. 

Ray, J. D. "Landlord's helper." (1986, May) 10% — 
Rental property management. 

Ray, James. "Inflation tracker." (1986, March) 49* 

Sanders, Wayne. "The gallery." (1985, July) 48 — 
Graphics demo. 

Sanders, Wayne. "The gallery." (1985, August) 28 

Sanders, Wayne. "The gallery." (1985, September) 
66 

Sanders, Wayne. "The gallery." (1985, October)57 

Sanders, Wayne. "The gallery." (1985, November) 
60 

Sanders, Wayne. "The gallery." (1985, December) 
52 

Sanders, Wayne. "The gallery." (1986, January)66* 

Sanders, Wayne. "The gallery." (1986, February) 
49% 

Sanders, Wayne. “Тһе gallery." (1986, March) 44% 

Sanders, Wayne. "The gallery." (1986, April) 20% 

Sanders, Wayne. "The wind chill factor." (1986, Feb- 
ruary) 36x e 

Scerbo, Fred. "Portable multiple choice test genera- 
tor." (1985, August) 66ж 

Shewchuk, John B. "Star Trek." (1986, June) 50e — 
Game. 

Stajduhar, Jerry. “Тһе music machine." (1986, Мау) 
33% — Create, modify and save songs. 

Teague, John F. "Screen to memory to screen." 
(1985, September) 59ж — Store and retrieve gra- 
phics. 

White, Richard A. "BASIC control structures." (1986, 
June) 46 — Tutorial on FOR—TO—NEXT. 

White, Richard A. "A brief survey of basic spread- 
sheet functions." (1985, November) 36 

White, Richard A. “The car shopper's spreadsheet." 
(1985, July) 66 — Correction, August 1985, p. 31. 

White, Richard A. "Different ways to store program 
data." (1986, May) 77 

White, Richard A. "Form 1040 in a spreadsheet." 
(1986, March) 82 

White, Richard A. "Let a spreadsheet dispel the 
gloom of form creation." (1985, August) 31 

White, Richard A. "Marrying BASIC and a spread- 
sheet." (1985, October) 68 

White, Richard A. "Preparing for the tax collector." 
(1985, September) 75 — Use the spreadsheet for 
tax time. 

White, Richard A. "Spreading on more spreadsheet 
functions." (1985, December) 17 
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White, Richard A. "Using the spreadsheet as a sche- 
duling tool." (1986, January) 63 

White, Richard A. "Welcome to BASIC." (1986, 
April) 100 — Tutorial on BASIC. 


οὐ. 
BAR CODE LISTINGS 


Balonis, Ronald F. "A text analyzer for the Model 
100/200." (1986, March) 95x 

Bishop, Dan. "Color code combo." (1986, June) 
100x 9 — Deductive reasoning game. 

Chatham, Art. "April fool!" (1986, April) 102x --- 
Appears if your files have vanished. 

Cornman, John; and Cornman, Aileen "Easy errors." 
(1986, February) 93 9 — Better error messages. 

Halcomb, Jay. “A SCHEDL enhancement." (1985, 
July) 29* 

Henning, Michael R. "Model 100 machine code 
made easy." (1986, June) 86. e — Portable mach- 
ine language programming. 

Himowitz, Michael J. "Big print." (1986, April) 58x e 
— Print in large letters. 

Ingle, Frank Н. “Coping with cassettes." (1986, Мау) 
49x 

Ireland, Nathaniel F. "Portable trip companion." 
(1985, October) 38ж 

Ireland, Nathaniel F. "Your 100 takes a licking and 
keeps on ticking." (1986, May) 30%% — Indicate 
elapsed time in hundreths of a second. 

Krueger, Roger F. "The fantastic label machine." 
(1985, November) 13* — Make mailing labels. 
Larrison, John. "Super editor." (1986, April) 23x e 

— Machine code editor. 

McDowell, Linwood. "Easy keys." (1985, December) 
32% — Creative use of function keys. 

Miller, Chris. "Portable protection." (1986, January) 
79* — Hide your files on the portable. Correction, 
March 1986, p. 9. 

Ramella, Richard. "Add search and replace power to 
your portable's text-handling functions." (1985, 
September) 25* 

Ramella, Richard. “BOA: The main squeeze for text 
files." (1986, April) 36x e — How to compact text 
files. 

Ramella, Richard. “Sardine.” (1986, March) 22% — 
Pack programs to conserve space. 

Sanders, Wayne. “The wind chill factor." (1986, Feb- 
ruary) 36x e 

Scerbo, Fred. "Portable multiple choice test genera- 
tor." (1985, August) 66* 

Teague, John F. "Screen to memory to screen." 
(1985, September) 59. — Store and retrieve gra- 
phics. 


PEES 
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ADDRESS Ballard, Bobby. “Return address label 
maker." (1986, May) 80% 

BARDEN Barden, William, Jr. “Interfacing with the 
Tandy 1000's joystick ports." (1986, January) 34 • 

BARDEN Barden, William, Jr. “What are all those 
strange MS-DOS commands, anyway?” (1986, 
March) 70% 

BARDEN Barden, William, Jr. "What are all those 
strange MS-DOS commands, anyway part 2.” 
(1986, April) 40% 

BARDEN Barden, William, Jr. “How to make cents 
of your MS-DOS system.” (1986, Мау) 96» — 
Methods of displaying numbers. 

BARDEN Barden, William, Jr. “What a bunch of 
characters!” (1986, June) 10% — Create new char- 
acter sets on the screen. 

BEAR Hyre, Leonard. "The land of the cave bear.” 
(1986, March) 109 — Adventure game. 

BIGPRINT Himowitz, Michael J. "Big print." (1986, 
April) 58. 9 — Print in large letters. 

BOA Ramella, Richard. “BOA: The main squeeze for 
text files." (1986, April) 36* € — How to compact 
text files. 

CLOCK Cornman, Aileen ; and Cornman, John. “It's 
about time—Multi-clock." (1985, October) 599 — 
Upgrade the Model 100 timekeeping. Note: Con- 
tained in April 1986 PCM ON DISK. 

COMBO Bishop, Dan. "Color code combo." (1986, 
June) 100. 9 — Deductive reasoning game. 





COPING Ingle, Frank H. "Coping with cassettes." 
(1986, May) 49x * 

DESK Ballard, Bobby. "The integrated desk part 7: 
Turbo powered DeskMate." (1986, May) 87* 


DOSBOOT Harrell, John B., III. “Superfast dis- 
plays." (1986, January) 67% 
DOSBOOT Harrell, John B., III. "A batch of new 


ideas." (1986, March) 77* — Tutorial on MENU.- 
COM. 


DOSBOOT Harrell, John B., ΙΙ. “Security's the 
name of the game." (1986, April) 759 — Password 
protection. 

DOSBOOT Harrell, John B., Ill. "What makes а 


compatible." (1986, May) 419 

EASY Henning, Michael R. "Model 100 machine 
code made easy." (1986, June) 864 9 — Portable 
machine language programming. 

ELECTRIC Hyre, Leonard. "The electric black- 
board." (1986, February) 10% — Mathematics 
exercises. 

ERRORS Cornman, John ; and Cornman, Aileen 
"Easy errors." (1986, February) 23k — Better 
error messages. 

FILTERS Kemp, H. W. "Fun with filters." (1986, Jan- 
uary)48* — Graphics demos. Corrections, March 
1986, p. 105. 

FOOL Chatham, Art. "April fool!" (1986, April) 
102x 9 — Appears if your files have vanished. 

GALLERY Sanders, Wayne. "The gallery." (1986, 
January) 66% 

GALLERY Sanders, Wayne. "The gallery." (1986, 
February) 49% 

GALLERY Sanders, Wayne. "The gallery." (1986, 
March) 44* 

GALLERY Sanders, Wayne. "The gallery." (1986, 
April) 20e 

HOUSE Baade, Eisner H. "Household inventory." 
(1986, March) 36% 

INFLATE Ray, James. "Inflation tracker." (1986, 
March) 49% 

IRA Hyre, Leonard. "IRA projection." (1986, March) 
46% 

KEYS McCormick, John. "Hitting the right keys." 
(1986, June) 98% — Improve numeric keypad 
skills. 

LANDLORD Ray, J. D. “Landlord's helper." (1986, 
Мау) 109 — Rental property management. 

LOAN Hyre, Leonard. “The loan officer.” (1986, 
May) 57 * — Amortization schedules. 

MATHWAR Mills, Robert С. “Galactic math war.” 
(1986, April) 10* — Math tutor game for the Model 
1000. 

METRIC Mills, Bob. "Metric calculator." (1986, June) 
73* — Converting measurements with PASCAL. 

MUSIC Stajduhar, Jerry. "The music machine." 
(1986, May) 33* — Create, modify and save 
songs. 

PHONE Hyre, Leonard. "PC phone booth." (1986, 
June) 33 — Mailing list, phone number directory. 


PSU DuBois, Marshall K. "A handy little printer 
setup utility." (1986, February) 78¢ 

RANDOM Bruey, Alfred J. "Using random files." 
(1986, April) 25% 

RICKETY Jackson, Barb ; and Jackson, Joan. "Rick- 
ety downs." (1986, January) 31* — Horse racing 
game. 

SCRNDUMP Lee, Peter T. "Graphics screen dump." 
(1986, March) 100% — Correction, Мау 1986, p. 
109. 

SUBCITY Covington, Robert D. "DB11: A towering 
database system." (1986, February) 57* 

SUBCITY Covington, Robert D. "Compiling BASIC 
programs." (1986, March) 56* — Discussion of 
the GW-BASIC compiler, and updates to DB-11 
database. File SUBCITY in April PCM ON DISK 
contains further updates. 

SUPER Larrison, John. "Super editor." (1986, April) 
23x 9 — Machine code editor. 

TICKING Ireland, Nathaniel F. "Your 100 takes a 
licking and keeps on ticking.” (1986, May) 30x e 
— Indicate elapsed time in hundreths of a second. 

TREK Shewchuk, John B. “Star Trek." (1986, June) 
509 — Game 

VIDEO Crockett, Davy. "Video character editor." 
(1986, May) 66* — Change display on screen in 
Model 2000. 

WINDCHILL Sanders, Wayne. "The wind chill fac- 
tor." (1986, February) 36x e 
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n of the 
Menu 


By John E. Harrell, III 





PCM Contributing Editor 





previously talked about using 

multiple levels with the Menu 

program and stated that the 

solution presented was a 

“work-around” the limita- 

tions. The techniques for 
using interactive batch files are useful, 
but this is less than the optimal solu- 
tion for your menu needs. 

My original Menu has some other 
limitations, too. I had two different 
versions depending on your specific 
machine. I had to write a special 
program for installing Menu. There 
was no really easy way to exit from 
Menu. It was written in assembly 
language and, therefore, was harder to 
maintain. 

Menu always used the command 


John B. Harrell, III has written for 
microcomputer magazines for three 
years. He holds a bachelor's degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems. 

| 

| 
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processor from the disk currently in 
use when it was loaded. This feature 
seems relatively insignificant, but you 
can install a RAM disk and copy 
COMMAND. .COM to it. Then, whenever 
the command processor needs load- 
ing, the system is able to perform this 
task much faster than loading it from 
disk. 


Super Menu 

Listing 1 contains the C source 
listing for a revised version of Menu 
that runs on any Tandy MS-DOS or 
IBM PC compatible, including the 
Tandy 2000 computer without change. 
In the following paragraphs, I will 
explain the differences between this 
version and the previous version. 

I wrote the revised version of Menu 
in C so I could devote my time to some 
nicer features without having to worry 
over the details of writing the assembly 
language code. I also wanted to intro- 
duce you to another popular high- 
level language as an alternative to 
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Turbo PASCAL. Using C does һауе а 
penalty in increased code size and 
slower execution speed, but the differ- 
ence is not enough to worry about, 
considering the advantages. 

I used Manx's Aztec-C86 compiler 
for this project. You can obtain this 
compiler in a number of configura- 
tions and it is an excellent compiler for 
any program development. Aztec 
produces exceptionally small com- 
piled programs and runs as fast (and 
faster in some cases) than Microsoft's 
Version 3. If you are considering C for 
a new language to learn, this is an 
exceptional product and Manx also 
has a C learning system and interpreter 
that is heavily related to their com- 
piler. 

Because each compiler implements 
non-standard library features in dif- 
ferent ways, I have included a descrip- 
tion in the comments of Listing 1, 
illustrating the Aztec function name 
and its usage. Most current С compil- 
ers implement these same functions, 
only with different names and calling 
sequences. Portability to another 
compiler should be easy. 





What's New with Menu Version 2 

I never liked the klutzy installation 
method used with the first version of 
Menu. I would start to change the 
installation on someone's computer 
and never had MENUINST.BRS around 
when I needed it. I often had to at- 
tempt a modification with Debug — 
not the most desirable circumstances. 
The new Menu uses a set-up file con- 
sisting of plain ASCII text created 
with Edlin or any word processor 
capable of writing a DOS text file. 
Later, ІЛІ describe how to build this 
file. 

The previous Menu installation 
would have supported multiple levels 
of menus if you wanted to install a 
version for each level and could de- 
pend on a CTRL-BREAK (or CTRL-C) to 
terminate the secondary levels. I did 
not like this idea, mainly because the 
concepts were too difficult to explain 
to the person who just opened his 
computer box. Menu was meant to 
relieve stress and anguish, not create 
it! 

The new version expects to find the 
file SETUP .MNU in the current direc- 
tory for initialization. You can also 
execute Menu with the complete path- 
name for the set-up file on the com- 
mand line. For example, MENU C:\ 


DOSNUTILNSE COND.SET executes 
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Someday, our cc 


In addition to a price you can afford more easily: 

"А buy-back policy*, to insure you against a good idea that turned out to be a mistake 
or even if you simply "changed your тіпа". “Ап exchange, for a new опе, in the rare 
event that yours should prove to be a “lemon”. *Credit card purchasing convenience 
for speed and safety plus “ап additional discount for cash-with-order buyers and 2а 
CALL-FREE number so you can get our prices free (except Texas). “А price quote 
which has NO ROAD-FREIGHT charges added later, we pay the freight and "fast 


* For a small restocking fee. 


CUSTOMER SERVICE/QUESTIONS ABOUT 
YOUR ORDER and in TEXAS 1-817-573-4111 


(9 am-5 pm TEXAS TIME MONDAY-FRIDAY) 


Fort Worth Computers 


377 Plaza 
Granbury, Texas 76048 


Sa CALLFREE NUMBER: 





TANDY 1200 © > 


shipping, usually next business day. “А same-day “rush service" for late satisfaction 
and *the assurance that repeat-customers exceed new ones means great satisfaction. 
References given upon request, to prove our bona-fides 


Tandy computers are created equal. . .all retailers are not. 


Did you get ''the rest of the story" before you placed your order? 
(. . .good thinking. . .) 
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FORT WORTH COMPUTERS 
ME μμ 


(WE ARE SERIOUS ABOUT SAVING YOU MONEY) 
Located 30 miles from Ft. Worth 
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Menu and looks for the initialization 
file SECOND.SET on the hard disk 
Drive C in the UTIL subdirectory of 
the DDS subdirectory. 

The set-up file contains the screen 
colors, time delay, title and menu 
options. Up to 24 options can be set 
in the menu and each option can 
specify a complete program name or 
batch file, including parameters. I got 
tired of the cryptic batch files (A, B, 
C, etc.) after a while with the older 
version. If you use batch files for the 
menu options (you really should use 
them to manage the subdirectories), 
they can now be given descriptive 
names so you will be able to remember 
them later. Floppy disk users will 
appreciate this the most as it totally 
frees them from having to use batch 
files without renaming their program 
files. 

This version solves another big 
gripe that floppy disk drive users (and 
some hard disk users, too) have ex- 
pressed. The original version was 
capable of formatting a floppy disk in 
Drive A only. Menu now gives you the 
choice of Drive A or B. 

Menu does not allow you to exit to 
the DOS command level. Users most 





often wanted only to execute a single 
command and return to the menu. 
Menu now provides a full *DOS 
window," which executes the single 
DOS command typed. Once Menu 
executes the command, the screen is 
left intact for you to read and a prompt 
to press any key is written on the 
bottom screen line. 

There is an *escape mechanism" — 
press ALT-1 and you exit the current 
Menu shell. This is also the method 
used to exit from a secondary menu 
level back to the primary level. You 
can also use the DOS window to 
execute the command processor. Type 
COMMRND and press ENTER — you will 
be at the DOS command level until 
you type EXIT. 

The final improvement provides the 
capability of loading the command 
processor from a RAM disk or any 
alternative other than the boot disk. 
When MS-DOS initializes, it creates 
the environment variable COMSPEC 
with the full pathname containing the 
location of the DOS command proces- 
sor. Type the DOS command SET after 
booting the system and see what you 
have installed. The Aztec-C system 
function automatically searches the 
current program environment and 


uses the command processor from the 
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location specified. 

Install your RAM disk driver per 
normal instructions. You only need 
about 16K to 27K of disk space de- 
pending on your DOS version of 
COMMRND .COM — look at a directory 
listing containing COMMAND.COM to 
find out. Next, place these two com- 
mands in your RUTOEXEC . BAT file just 
prior to executing the new version of 
Menu: 





Drive is the drive designation for 
your RAM disk. 

Any time Menu executes one of the 
options, it loads the DOS command 
processor from the location specified 
by COMSPEC. This is a lot quicker than 
loading it from disk. 


Initial Menu Setup 

Load your favorite DOS text pro- 
cessor (Edlin) or any word processor 
capable of generating a DOS text file. 
The first five entries are numeric and 
contain the colors and time delay for 
menu. The first four are the screen 
colors and are in hexadecimal. For the 
Tandy 1000, 1200 and 3000, these 
colors reflect the background and 
foreground of each character and use 
the same numbering scheme as pres- 
ented in the original article (November 
1985, Page 71). For the Tandy 2000, 
each represents a single number, also 
as previously explained. 

Color | is the pop-up window con- 
taining the formatting message and 























Professional quality 
Mix letter sizes and 
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245; to use. Signs сап be 
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part ofthe DOS window. Color 2 is the 
second format message and the main 
color for the DOS window. Color 3 is 
the menu body and text. Color 4 is for 
the title lines at the top and bottom of 
the menu. For the Tandy 2000, colors 
1 and 2 specify the highlight back- 
ground and foreground colors, and 
colors 3 and 4 specify the normal 
background and foreground colors. 

The fifth number is in decimal and 
specifies the number of seconds to 
delay prior to protecting the screen 
with the flashing prompt. These 
numbers must be separated by a 
“white space” character: a blank, tab 
or line separator. I put each number on 
a separate line for clarity. 

The next line of the set-up file 
contains the title for your menu and 
can be any character string up to 78 
characters long. It is on a single line 
by itself — just type the title text. 
Following the title, each menu entry is 
listed with its corresponding com- 
mand. 

The menu text for each item may be 
any text string up to 35 characters in 
length. Each menu item must be fol- 
lowed by a command string that is 
permanently assigned to that item. 
Menu items are positional. Where 
they appear in the set-up file estab- 
lishes the letter assigned to that op- 
tion. If you are going to skip over 
several menu option letters, that’s fine 
— just remember to leave two blank 
lines for each item skipped. 

Up to 24 distinct command options 
can be specified for each menu. You 
may stop wherever you want to — 
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Menu automatically fills out the re- 
mainder of the list with blank options. 
If an error is detected in the menu 
options, Menu displays the last text 
item read and terminates in error. 

Write the set-up file out to disk and 
you are all set to go. One last thing, 
you must also rename FORMAT . COM to 
ҒМТ.СОМ. I still believe in this modest 
form of disk protection enough to use 
it in the revised Menu. 


Conclusion 

Menu contains all of the C code for 
rapidly displaying text to the video 
screen. See my “Superfast Displays” 
article (January 1986). I modified this 
code to recognize the difference be- 
tween a Tandy 2000 and an IBM- 
compatible computer. With this mod- 
ification, I can use the same identical 
code for all machines. 

I think the C source code is fairly 
well-documented and easy to read as 
it is. If you try to convert the code to 
your compiler and use it, C is case- 
sensitive — the source must be typed 
as it appears. Please write with any 
questions or send them to me via 
Easyplex mail on CompuServe — my 
user ID is 73016,1326. 
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The listing: 
Аааа 
MENU Utility Shell 
Written by: LCDR J. B. Harrell 
Jnicicioeiciclelcicicieicieieieicicieieicieloieicieloieieieloicieieieieicicioleicicioleicieloicicicleleicioleieieicieleieieieloicieleioieictoicicioletets / 
ΛΑ ibkeg */ 


eteietetetetetetejedetejetejedesejetotejedetejetetejetejetetejesejetetejefejeletejetejetetejetefetejetetejelejeietejeteteietejetejeelejetetejetejeteteyefe 
Documentation of Aztec-C86 compiler library specific functions 


scr call(ax,bx,cx,dx) is an Aztec function to perform a Video Control 
Interrupt (INT 19H) with the AX, BX, CX, and DX registers set to the 
values passed as parameters to the function call. 


scr poll() is an integer function which interrogates the keyboard 
using INT 16H and returns the value of the key pressed, if any, or 
-l for no key, -2 for Ctrl-Break. Extended keys such as function keys 
return their scan code plus 128, 





scr getc() is an integer function which interrogates the keyboard 
using INT 16H and returns the value of the key pressed. It WAITS for 
a key to be pressed. scr getc() returns -2 for Ctrl-Break and handles 
function keys as above for scr pollQ. 


scr puts() and scr printf() are Aztec functions which perform the 
equivalent of the normal C library puts() and printf() functions using 
BIOS INT 19H calls. These functions will also use the currently defined 
screen attribute to display text in colors. 


scr_loc(&row,&col) uses BIOS INT 19H to retrieve the current cursor 
location and set the parameter addresses specified. 


Scr curs(row,col) uses BIOS INT 10Η to set the system cursor to the 
location specified by "row,col", 


sysint(int,&iregs,&oregs) sets the CPU registers to the values specified 
in the structure "iregs" and executes software interrupt "int". Тһе 
returned register values are stored in "oreg". 

| 
system(str) executes the command string passed as the parameter. Тһе DOS 
command processor (COMMAND.COM) is loaded from the file identified by the 
environment variable "COMSPEC". | Null strings will not be executed. 


outportb(port,byte) outputs the byte specified to the CPU port. 


peekb(offset,segment) is an integer function returning the byte stored in 
location specified by "segment:offset". 


pokew(offset,segment,word) stores the word specified at the word location 
specified by "segment:offset". 
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Jenioa / 
#include <stdio.h> 
#define CLS scr call(gxg699,gx9799,9,gx184F) /* B 


IOS call */ 
*define CURSOR ON scr call(gx919g,g,on уа1че,0) /* BIOS call 


ж/ 
#define CURSOR OFF scr call(xg19g,9,off value,g) /* BIOS call 


ἘΣ 
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ЯдеҒіпе TRUE 
*define FALSE 


#define TANDY299g 
"define IBMMONO 
*define IBMCOLOR 


*define ESCAPECHR /* currently defined as the ALT-1 key 
/* using Aztec's notation of 128 (89H) 
/* plus the scan code of the key 


struct regs ( /* used for "sysint" communications 
int AX, BX, CX, DX, SI, DI, DS, ES; 
)5 


The constants listed below are values used by the Aztec-C86 run-time 
system to control allocation of the stack and heap. You are also 
able to force the compiled program to generate the stack below the 
heap, decreasing the size of the execuatble code. 


_STKSIZ = 128; /* stack size in paragraphs 
_HEAPSIZ = 128; /* heap size in paragraphs 
_STKLOW = 1; /* Force stack below heap (small memory model only) 


These constants are used by the video display routines used in MENU 


SMODE = 3; Assumed video screen mode, reset by init_video() 
Video Mem; Segment address for video display RAM 

vflag; State variable containing current video mode 
attrib; Current character attribute value 

normal; Actual attribute for "normal video" 

revrs; Actual attribute for "revers video" 

hilite; Actual attribute for "highlight video" 

rhilite; Actual attribute for "reverse highlight video" 
on value, off value;/* Cursor control values 


/* Local 

/* attribute 

/* selection 

/ж values 


The following data items contain the information read from the menu 
setup file (either SETUP.MNU or the file name specified on the DOS 
command line. 


int NORMAL; /* Color attribute 

int REVRS; /ж values read 

int HILITE; /* file 

int RHILITE; /* SETUP.MNU 

int TDELAY; /* Time delay (seconds) before blanking screen 

char title[69]; /* Title line text informaiton 

char menuitems[26][38]; /* Menu entry text (one for each menu line) 

char menucommand[24][59];/* Menu command text (one for each menu entry 
/* with the exception of the last two items which 
/* are reserved for formatting disks and the DOS 
/* command window 


int ch, ch2, screenflag; 

long starttime, lasttime, thistime, gettime(); 

char cmd[89]; 

char setupfile[63]; 

char *prompt — "Press a letter key for your selection"; 
char *menuver - "MENU Version 2.3"; 
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/ ..-ὅττὅὅττττττ::---------------το IIE 
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* Main program function 
* 


FRPP AIA III AA ADD AID I AISA IAI ολους Z 


main(argc,argv) 
int argc; 
char *argv[]; 


if ( arge == 1 ) ( 
strcpy(setupfile,"SETUP.MNU"); 


) 
else ( 
if ( argc == 2) ( 
strcepy(setupfile ,*++argv) ; 
) 
else ( 
Scr puts("NnMENU parameter error - only filename allowed!"); 
exit(1); 


) 


init menu(); 
screenflag = FALSE; 


do ( /* main Menu control loop */ 


starttime - gettime(); /* Initialize blanking delay */ 
lasttime - fL; 


if ( !screenflag ) ( | ΛΚ Turn on video if it is off  */ 
init video(); 


drawmenu(); 


) 


while ( scr ро11() == -1 ) ( /* read keyboard and update screen */ 
if (((thistime-gettime()) > starttime+(long)TDELAY) && screenflag) 
dead screen(); 
if ( lasttime !- thistime ) ( 
lasttime - thistime} 
if ( screenflag ) ( 
header(22,9,79,cmd,hrev); 
) 
else ( 
dead screen(); 


) 
) 


if ( !screenflag ) ( 
init video(); 
drawmenu(); 


) 


ch - toupper(scr getc()); /* decipher command key pressed */ 
if ( (ch >= 'A') && (ch <= 'X') ) ( 
doscommand(menucommand[ch-'A']); 
) 
е15е ( | 
switch ( ch ) ( /* was not А through X */ 
case 'Y': 
formatdisk(); 
break; 
case 'Z': 
get dos command(); 
break; 
) 
) 
) while ( ch 1= ESCAPECHR ); 


cls(); /* restore video to normal and exit */ 
5ος call(SMODE); 
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CURSOR ON; 


init menu() 
Initialize the menu constants by reading the data from the 
appropriate setup file. 


init menu() 

( 
FILE *setup, *fopen(); 
int i; 
char *index(), *cp; 
char buffer[89]; 
char *fgets(); 


cls(); 
scr_puts(menuver) ; 
scr puts("Written by John В. Harrell"); 


strcpy(buffer,"A. "); /* Initialize initial letters of */ 
For ¢ die Gs £25 Lpt» t /* MENU entries, "A" through "Z" */ 
strcpy(menuitems[i],buffer); 
buffer[@]++; 
) 


if ( (setup = fopen(setupfile,"r")) == NULL ) ( 
scr printf("Setup file <%5> not found!",setupfile); 
exit(1); 

) 


if ( fscanf(setup,"$x $x $x %х $d", 
&NORMAL,&REVRS,&HILITE,&RHILITE,&TDELAY) 1= 5 ) ( 
scr_puts("Error in setup file numeric color input:"); 


scr puts(" Required input is four numbers in hexidecimal") ; 
scr puts(" representing the screen colors followed by one"); 
scr puts(" number in decimal representing the time delay."); 
scr puts(" These numbers must be separated by blanks, tabs"); 
scr_puts(" ог оп a separate line."); 
exit(1); 
) 


if ( getc(setup) -- EOF ) ( 
scr puts("Error in setup file text options at title line"); 
exit(1); 


In the following code segment, MENU reads the setup file and 
extracts the text entries and commands. Note that fgets() will 
return a string terminated with '\n' and the program uses 
index() to locate this character and replace it with '\@' 


if ( fgets(buffer,78,setup) -- NULL ) ( 
scr puts("Error reading menu title"); 
exit(1); 

) 

cp = index(buffer,'\n'); 

жер = "Αρ"; 

strcpy(title,buffer); 


for (і = 9; i < 24; itt) ( 
/* 

Up to 24 menu entries may be present. Ап end of file [fgets() 
returns a NULL value] will be received if less are present and 
this terminates the loop. If a menu text entry is present, the 
command text must also be present or this is signaled as an error 
condition. Menu text entríes may be 35 characters long and 
command text may be up to 5 characters. 
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Check Out Our Systems — High QUALITY TURBO motherboard at the LOWEST prices. 
Our hard drive systems have EXTRA megabytes of FREE storage — CALL 
(more megabytes for less megabucks) 
Our monitors are high resolution TTL — They even have their own tilt and swivel base FREE 
Powered by a heavy duty power supply, and offering TRUE — 8mnz turbo speed 


ONE FULL YEAR WARRANTY 


COMPARE OUR SYSTEMS — TURBO M is the COMPETITION 
toreni RBO M PC COMPLETE SYSTEM 
μα iui Speed CPU — 4.77 AND Sinz TURBO 
$8 9 9. 95! 640 K memory 2 parallel ports 
— 8 slot motherboard Clock calendar 
System H.D. 150 Watt Power Su upply Game Port 
HARD DRIVE SYSTEM Monochrome TTL Keyboard 5151 style 
22 MEGABYTE SYSTEM Monochrome Display High Res. Ram spooler 
Tilt and Swivel Base Monitor Printer spooler 
$ 1 J 399 95! Serial port (2nd port opt.) oa i T 
.W. Basic 


Toll Free Ordering 1-800-343-8841 


TURBO M/AT—COMPLETE SYSTEMS STARTING AT $2,359.95 !!! 
ONE FULL YEAR WARRANTY 
Comes Complete with 80286 processor 
6 and 8 Mhz Switch Selectable 
8 Slot Motherboard 
192 Watt Power Supply 
1.2 Megabyte Floppy Drive 
1 Full Megabyte of Memory on Motherboard 
2 Parallel Ports — 2 Serial Ports 
Clock Calendar 
Hercules Compatible Monochrome Card 
Monochrome Display-High Resolution 
Tilt and Swivel Base 
AT Keyboard 


Floppy 1/О Card Winchester Hard ) Megabyte and 20 Megabyte Drives Color Graphics 
Dual eed Car Controls Two Floppy Drive Controller Complete System Card with 
printer F Por D 3 Drive, Controller. Cables Printer Port 
and easy to follow 
Calendar Game Port instructions. 


$79.95 $99.95 $134.95 $349.95 — $459.95 $94.95 


150 Watt Multi Function Card with 5151 Compatible Monochrome Monitor Floppy Drive Card P.C.DOS 3.1 Flip Top Cabinet 
Power Supply Space for 384K of ontrol up to with aker 
emory, Serial Port. Cursor and Tilt/Swivel Base Four Drives 
Parallel Port Clock Number Pads 
Calendar, Game Port 


$79.95 $79.95 $89.95 $159.95 $39.95 $80.00 $49.95 


MEGADISK" HARD DRIVES 
Our Hard Drive Systems Are Compatible With 
IBM PC and AT, HEATH/ZENITH, COMPAQ, COLUMBIA, PC CLONES, TAVA, EAGLE 
TRS/80 Models I / III / IV / 4D / 4P / MAX 80 / COLOR COMPUTER, Tandy 1000 
Systems come complete with drive, controller, cables, Systems come complete with one free software driverfor TRSDOS 6, 
hardware and easy to follow instructions. LDOS 5.1.x, DOSPLUS 3.4/4, or NEWDOS 80.CP/M is available. 
6 megabytes ..... SM starts at $229.95 6 megabytes. 3399: 95 
22 megabytes... starts at $459.95 20 megabytes 


REMOVABLE MEDIA SPECIAL 40 теа ле 


5 Megabyte беле ' Drive Now 5 megabyte removable w/30 or 40mb 


Warranty Information: TURBO M systems come with a full year warranty for parts and labor. 
RBO-M systems arẹ guaranteed to run all programs such as LOTUS, SYMPHONY, AUTOCAD, 
PUT SIMULATOR, DBASE, MICROGRAFX, WORDSTAR, LEADING EDGE W/P, RBASE. 
MEGADISK hard drives are fully warranteed for parts and labor. 


Software Support Inc. — MicroSmart Inc. 
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Purchase Orders-Corporate, Government & School 4 dy 
P.O.'s are accepted. Please call for details. 1- 6 1 7-8 72-9090 Му JBM: TAVA COLUMBIA: 5151, COMPAQ, EAGLE, 


Shipping Costs are calculated per order Hours: Mon-Fri. 10 am to 5:30 pm (est) Sat 4:00 pm TRS/80, HEATH/ZENITH are registered trademarks 
Please call for total 


Shipments of all in-stock products are made within Toll Free Orderii ing 1-800-343-8841 reyes Gon ρα Con. "Eagle Computer 


24 hours. Same day service is available upon Tandy Corp. Zenith Corp, respectively 


. . . 
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Terms and Specifications may 6 Місго5тап, Inc. All rights reserved 
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if ( fgets(buffer,35,setup) == NULL ) 
break; 


) 
cp = index(buffer,'\n'); 
Жер = '\ў'; 
strcat(menuitems[i1],buffer); 
if ( fgets(buffer,59,setup) == NULL ) ( 
scr puts("Error reading menu command text:"); 


scr printf(" Last line read was <%s>\n",menuitems[i]+3); 


exit(1); 
) 
cp = index(buffer,'\n'); 
жер = '\ў'; 
strcpy(menucommand[i],buffer); 


) 


strcat(menuitems[24],"Format Floppy Dísk Drive"); 
streat(menuitems[25],"Execute a DOS Command"); 


fclose(setup); 


) 


felieteteieletejeteieteteiedeteteieietetejeielejejeieletekeieieteteieteteieieteteieieteteiteteieteletetetetetesetetejeetetejedetetejetelesejetetejejedelefe 
ж 
dead screen() 
Performs two functions depending on the state of the variable 
"screenflag": 


1. If screen is on, it turns the screen off and initializes the 
walking prompt line. 


If the screen is off, it "walks" the flashing prompt to the 
next screen location with wraparound from bottom of the screen 
to the top. 
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static int current row; 


dead screen() 
( 
if ( screenflag ) ( 
screenflag = FALSE; 
current_row = -1; 
els(); 
if ( vflag == TANDY2999 ) 
normal = #х2а; 
outportb(9x198,9); 
outportb(x19c,9); 
outportb(gx19e,9); 
) 
else ( 
normal = (normal & gxgg9gf) | 7xgg88; 
) 
) 
else ( 
header(current row,-1,89," ",nor); 
if ( ++current_row > 23 ) 
current row = -1; 
header(current row,-1,89,"Press any key for menu",nor); 


) 


LIPOMA AIA TISAI IIT να»: II STIS IIIS ISI ISI SATIS SISA INA ISIS AAI οος 


drawmenu() 
Draw the menu box on the screen and display the proper menu text 


FEV ETL IE yeye ISI IIIA INIA III IERIE IH fc ye gee fe INCA IAI IPI EB IAD SID IAIN AAI I AISI SS SSI AIS / 





66 РСМ July 1986 





#define 
#define 
#define 
#define 
#define 


drawmenu() 

( 
register int 1; 
register int mrow; 





window(UR,UC,LR,LC,hnor); | 
getdate(); 
header(%,UC,LC,cmd,hrev) ; 
header(l,UC,LC, títle,hrev); 
header(2,UC,LC,menuver,hrev); 
drawline(4,UC,LC,hnor); 


drawline(29,UC,LC,hnor); 
header(29,UC,LC," ",hrev); 

header(21,UC,LC,prompt,hrev); 
header(22,UC,LC," ",hrev); 


drawvert((LC-UC)/2,4,29,hnor); 


attrib - hnor; 

for ( i = f, mrow-6; i < 13; i++, mrowt+ ) ({ 
display(UC+LM,mrow,menuitems[i]); 
display(UC+(LC-UC) /2+LM,mrow,menuitems[i+13]); 

} 


screenflag = TRUE; 
} 


/ yYefesefetfefefeyeyfefeyfeyetefeyeyese xefefefeletefefedetetelfefefefefefetefedelefefefefetefefefefefefefefefefeteferfetefelfedefetefefefefeferfetefefedelete yeyeyeye 


formatdisk() 
Called for option "Y" from the menu to display the option boxes 
on the vídeo screen and get your response. It then formats your 
response into a system call to format the floppy disk drive. 





Yeye ey fee eee yeye Joe Joe ye Joe fede Jefe Jefe Jefe Jefe yeye fo ὙςἽς Ἂς СУСС fe Jeyefe ye fe fo fe yeye ye ye e Ye ye jefe ye fe Yeye Jee fe ye ὐς Yee Jefe fe eye Jee yeye jaya / 


formatdisk() 
( 
window(8,15,14,65,rev); 
display(17,9,"Format floppy disk in selected drive. Ensure"); 
display(17,19,"that a disk is in the drive with the door shut."); 
display(17,11,"Press the <Е> key to format a data disk or"); 
display(17,12,"press the «S» key to format a system disk. Any"); 
display(17,13,"other key will return to the menu display."); 
ch - toupper(scr getc()); 
if ( (ch == 'F') || (ch == 'S') ( 
window(19,17,16,67,nor); 
display(19,12,"Press the 'A' or 'B' key to select drive: "); 
CURSOR ON; 
do ( 
ch2 = toupper(scr getc()); 
while ( (ch2 l= "А") && (ch2 t= 'B') ); 


Note that this program assumes that FORMAT.COM has been renamed to 
FMT.COM on your disk. Change the character string below to reflect 
the correct name if this is not your case. 


if ( ch == 'F' y | 
strepy(cmd,"FMT A:/V"); 
else 
strcpy(cmd,"FMT A:/S/V"); 
emd[4] = ch2; 
display(19,14,"Do you want to continue (Y/N)? "); 
do { 
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ch2 - toupper(scr getc()); 
) while ( (ch2 !- 'Y') && (ch2 1= 'N') ); 
if ( ch2 == 'Y' ) 
doscommand(cmd) ; 
else 
CURSOR_OFF; 
} 
screenflag = FALSE; 
) 


µου ADS AA ILAI IAI AI IAI IA ου IACI IAA ISI IESV DESAI SEL IEE LD SEDI A LISI ISD IISA IK IOV INE 


















doscommand(str) 


Restores the video to normal and executes the user command 
specified by parameter "str" 


VLA AISI LAI IA IARI IAI IAIN I IAI IAI IAAI SA IN IIA DIAL IIA IDES VIED IS SV / 


doscommand(str) 
char *str; 
( 
cls(); 
scr call(SMODE); 
CURSOR ON; 
system(str); 
if ( vflag == TANDY2999 ) 
init video(); 
screenflag - FALSE; 
) 


Jf Yeletetelefeietefetetejefejejejefetefetefedefetedetejejejeiejejejejefefeyjeyetfetfefefefetetefefetejetefejefejefetejetesefejefetefefejejefejejejeyeyfeyfetetetese 






* get dos command() 

* This function is executed in response to option "Z" from the 

κ system menu. Іс draws the "DOS command box" on the screen and 
ж reads the user command input. If the input is non-null, the 

ж command is executed. When the command completes, the screen is 
intact, waiting for you to press a key to return to the menu. 
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get dos command() 

( 
register char *cp; 
register char c; 

int row,col; 






window(12,9,17,79,nor); 
header(12,9,79,"DOS COMMAND WINDOW", геу); 
header(13,9,79,"Enter DOS command below, ENTER to return to menu",rev); 
CURSOR_ON; 
cp = cmd; 
*cptt = '$'; 
for (;;) ( 
Жер = ff; 
display(1,16,cmd); 
c = scr getc(); 
EE ІС та, ONE 2 
break; 
if ( c == 8 ) ( 
if ( cp > cmd+l ) ( 
cp--; 
scr loc(&row,&col); 
display((--col),row," "); 
) 
continue; 
) 
if ( cp > стӣ+79 ) 
continue; 
if ( (c δ Øxff) < 9x29 ) 
continue; 
Жерік = с; 
) 


if ( emd[1] = g > ( 
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) 


CURSOR OFF; 
screenflag - FALSE; 
return(f); 


cls(); 
Scr call(SMODE); 
system(cmd-41); 
header(23,-1,89,"Press any key to return to the menu",rev); 
scr getc(); 
if ( vflag == TANDY2999 ) 
init video(); 
screenflag = FALSE; 


eleteteletejejetejejetedetefejetetetefefetetejejetetetefefetefejefetefetetefejeietetejetfotejejotelejejetetejetetejejetofeyfeyjejofefeyeteseyeyedefeveyjesofeye 


* 


* 
ж 
* 
* 
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getdate() 
This function reads the current system date using MS-DOS function 
call 2AH and formats the returned date in the string buffer array 
"cmd" for display. 


Yeyefe e еу Зе ISSA IIIS III IASI IIIA AI III SAI III ISI II III III II III II III III IOI III IASI I IIS AI IIE, 


char *weekdays[] = ( 


); 


"Sunday", 
"Monday", 
"Tuesday", 
"Wednesday", 
"Thursday", 
"Friday", 


, "Saturday" 


char *months[] = ( 


1; 


"ч" 
, 


"January", 
"February", 
"March", 
"April", 
"May" ; 
"June", 
"July" f 
"August", 
"September", 
"October", 
"November", 
"December" 


getdate() 


( 


) 


struct regs dosregs; 


dosregs.AX = gx2agg; 
sysint(33,&dosregs,&dosregs); 
sprintf(cmd,"$s, td ts $4d",weekdays[dosregs.AX δ Øxff], 
(dosregs.DX δ gxff),months[((dosregs.DX >> 8) 6 gxff)],dosregs.CX); 


f'eteteieteseieteseiejeteieteseietedeteteteieteiefetelejetetetetetefejetjetetejetejejejetetejetetjeyetetejetetejetetejetejeyjetedeyjefedejefedeyfefesfeyefetfeljeteye 


yc 


gettime() 
This function gets the current system time using MS-DOS function 
call 2CH and returns a long integer value representing the 
binary number of seconds past midnight. As a side-effect, this 
function also formats the time in display format in the character 
string buffer "cmd". 


Yesofefejeietetetejejefeieteietetetetejejejejeieieteletetetetetejeieieetetelefefejejetetetefefejeietefetetetejejejefetetetetefeyfeyfetfejetetetetefefeyfeyjere / 


long gettime() 


( 


struct regs dosregs; 
int hours,minutes,seconds; 
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dosregs.AX = фх2с0 0; 
sysint(33,&dosregs,&dosregs); 
hours = (dosregs.CX >> 8) & fgxff; 
minutes = dosregs.CX δ fxff; 
seconds = (dosregs.DX >> 8) δ фхҒғ; 
sprintf(cmd,"$2d:$2d:$2d",hours,minutes,seconds); 
if ( emd[3] == v * (у 
emd[3] = 'g'; 
if ( cmd[6] == ' ' ) 
emd[6] = 'g'; 
return( (long)seconds + 69L * ( (long)minutes + 61, κ (long)hours) ); 
) 


[FABIAN IAA IAAI I AISA AA IA SADA IA IA IA IIIA INIA III A III II SI IIIA IEA IA SEVIS А SEIS SKS IEE 


Init_video - initialize the video segment address to the correct 
value. 


The IBM-PC and clone's video segment is dependent on the hardware 
installed. Monochrome VRAM begins at segment ØxBØØØ and color VRAM 
begins at segment xB89g. 


The TANDY 20 0 video segment is located in the highest 5K of memory 
installed. То determine if the computer is a Tandy 299g, you must fir 


inspect the Boot ROM located beginning at ØxFCØØ segment for the prope 


identification. There are currently two versions of this Boot ROM with 
different locations of the Tandy identifier. This explains the relatively 
complex "if" statement below. 


After determining the segment addresses correctly, the colors and attri- 
butes must be set correctly. On the IBM-PC and clones, thís is the same -- 
colors and attributes are controlled by the same byte. Tandy 2000 mon 


chrome attributes are totally different from the IBM-PC. 


Yorejotetejeteteteyjotetefejofefetejofetetejejetotejejefetetejefetefejetetejejetetejefetefejefetetejeletejesetofejejetefejelefefejetetefejetetefefejeteteye / 


init video() 


( 
struct regs memregs; 


i£ ( С (peekb(9x9g2f,gxfcgg) == 'T') && (peekb(gxgg39,g 


/xfcJ) == 'a') ) 
|| € (peekb(gxgg32,9xfc9g) == 'T') && (peekb(gx9g33, gx 


EGPA) μα Талу 2% 
( 


vflag = TANDY2999; 
on value = gxgggF; 
off value = x699g; 
normal = fxfa; 
revrs = x8a; 
hilite = Йхда; 
rhilite = фЙхса; 
SMODE - 2; 
Scr call(SMODE); 
outportb(x198,NORMAL); 
outportb(xl9a,REVRS); 
outportb(gxl9c,HILITE); 
outportb(xl9e,RHILITE); 
sysint(18,&memregs,&memregs); /* get current memory size */ 
Video Mem = ( (memregs.AX << 6) & фхЕЕ Й ) | фх00с0; 

) 

else ( 

on value = gxggg7; 

off value = 9x3999; 

sysint(1l7,&memregs,&memregs); /* get equipment status word */ 
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Give your Model 100 





Software included, 
transfers from 
bank to bank. 








Ав amazing as it seems you can upgrade your 
Model 100 to 128K of RAM in just 60 seconds 

It comes right out of the box looking just 
like the picture. You just open the little compart- 
ment on the back of your Model 100 with a 
quarter and it just pushes right into (кезед You 
can then put the cover back in its place. 

You then have 4 banks of RAM of 32K each. 
[The additional three banks also work just like 
vour Main Menu 

You push a function key and you are in the 
second bank. Push again and you are in third, 
again, then fourth. Press it once again for your 
original bank. 

It has its own built-in NiCad battery that 
recharges right from the Model 100 and its 
guaranteed for a full year. 

What is really great is that you can copy a 
file from one bank to another with just a func- 
tion key. 

Each bank is like having another Model 
100, and all the built-in programs as well as any 
snap-in ROM programs appear in all four banks 
and work the same way. Your widebar cursor 
moves from file to file and you access any file or 
run any program just by pressing ENTER. 

What lets you copy any file from one bank 
to another is a snap-in ROM from PCSG called 
RAM+, that comes at no extra charge. It 
pushes right into the little socket in that same 
compartment with the 96K expansion unit. 


B 


Not only does this firmware let you copy a 
file from bank to bank, but you can make a copy 
of any file within the same bank instantly with a 
function key. Great for Lucid spreadsheets! 


Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any file 
with just a function key. Plus you can do a 
whole lot of other useful things like setting the 
date, day and time with function key ease. You 
even have a function key that lets you use non- 
Radio Shack printers without having to make 
those tricky dipawitch settings. 
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Installs as easily 
as plugging in a socket 


р Мае а ар 
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. 


(Чын лөр 
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RAM + lets you cold start any one of your 
banks without affecting the other three. That 
means that anytime vou want you can clean out 
a bank's entire memory, but leave intact all the 
files in the other banks. 

What is also fantastic is that you don't have 
to have the ROM in place to use the additional 
RAM. Whenever you take out the snap-in ROM 
it leaves behind à tiny machine code program 
that lets you switch from bank to bank just by 
pressing ENTER. 











Works like main 
menu! Includes 
powerful RAM Basic 
that lets programs 
store and access data 
from any other bank. 


This lets you use your ROM socket to snap- 
in other ROMS tke the amazing SUPER ROM, 
or DISK + ROM file transfer program, and use 
them in any or all four banks. All of these, by the 
way, are available from PCSG. 

When you are ready to copy a file from one 
bank to another or use any of the other fantastic 
functions we talked about you can just snap the 
RAM + ROM back into place. 

Everybody that has this 128K system in 
their Model 100 is so excited, because it gives 
them four times the capacity and all banks work 
just like the Main Menu. 

And what has made a lot of people happy 
is that the system bus, located in the same 
compartment, is left free for you to plug in a 
DVI or the Holmes Engineering/PCSG portable 
disk drive. 

The ability to copy a file from bank to bank 
instantly with a function key, plus all of the 
other features make this RAM extension truly 
an engineering masterpiece. 

This is the only memory expansion that 
gives you 3 extra banks of RAM. That's 50% 
more than any other RAM expansion product. 
Thousands have been shipped to satisfied 
customers over the past 12 months — more are 
installed and working reliably than any com- 
petitive product. ' ° 

Some people hesitate when they think of 
installing something, and then others are 
skeptical that any additional hardware could be 
as good as the Model 100 itself. That's why we 
sell these 96K expansions on a 30 day trial. 
Simply return it within 30 days for a full refund 
if you are not satisfied. Priced at $428"? MC VISA 
COD. 





PORTABLE «МЕА ITER URORT ORUP 


11035 Harry Hines Blvd. #207 
Dallas, Texas 75229 


214-351-0564 





РС5С offers а 30-day/money-back trial! » Also available for the model 200. 


if ( (memregs.AX & gx993g) == 0х 0300 í 

vflag - IBMMONO; 

Video Mem = fxB99; 

SMODE - 2; 

scr call(SMODE); 

normal = fxg7; 

revrs = x79; 

hilite = xff; 

rhilite = фх7Ғ; 


{ 
vflag = IBMCOLOR; 
Video Mem = xB899; 
Scr call(SMODE); 
normal - NORMAL; 
revrs REVRS ; 
hilite HILITE; 
rhilite RHILITE; 
) 

) 

attrib - normal; 

cls(); 

CURSOR OFF; 

) 


JeteteietetetetetetetetetjejetejetetefefetejetedejetetejetetejeteiejetetejetetefefetejeteteteteletetetetejetejejeyefefejedjejetetejeteyjeJesejejedeyfetedeyedtese 


Draw a "windowed box" on the video screen in the area specified 
by the upper left corner and the lower right corner. The box must 
be at least 3 X 3 to accomodate the frame drawn around it. 


The window box will be drawn using a double-line frame in the attribute 
mode specified. The character attibute will be restored to its previous 
value on exit from the procedure. 


VHA IA IAIN AIA VIIA IIIA A AIA IVI IIIA ISIS II IIA HS IIIS ISS SIE VIII SII IIA SHI III / 


#define ULC Йхс9 Define box characters using the */ 
*define URC gxbb IBM-PC double line special chars */ 
*define LLC gxc8 You can change these to the ж/ 
*define LRC κος smaller single line characters */ 
*define HRZ gxcd or any other character you */ 
#define VRT gxba desire. */ 
*define LVR Yxcc 
#define RVR gxb9 
#define UHZ фхсь 
#define LHZ Йхса 


static char window 1іпе[81]; 


window(urow,ucol,lrow,lcol,atr) 
int ucol, urow, lcol, lrow, atr; 
( 

register int line len, i, 3; 


if ( ((line len = lcol-ucol+1) < 3) || (line len > 89) 
return(-1); 


if ( (lrow-urow+l < 3) || (lrow-urow+l > 25) ) 
return(-1); 

if C (atr « 1) L|] cate SS) 
return(-1); 


attrib - atr; 


window line[g] = ULC; 

window line[line len-1] - URC; 

for (і-1; i < line len-1; i++ ) 
window line[i] - HRZ; 

window line[line len] - 'Mg'; 

display(ucol,urow,window line); 


window line[g] = window line[line len-1] 
for (1 = l; 1< line len-1; itr) 
window line[i] = ' '; 
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window line[line len] - "gu 

for( i = 1; i < lrow-urow; i++ ) ( 
display(ucol,urowti,window line); 

) 


window line[g] = LLC; 

window line[line len-1] - LRC; 

for ( ít = 1; í < line len-1;| i++ ) 
window line[i] - HRZ; 

window line[line len] = 'Mg'; 

display(ucol,lrow,window line); 


return(9); 
) 


[MAASAI IATA IAD AA IAS RIS III IAIN IASI AAAS IAL AI AID SSS SSS ASSAD LSA IV ID ID IV EDEB EDDIE IEDC VE DEM 


header(row,col,ecol,str,at) 
displays the string "str" as a header centered one line down 
from the top row of the window defined by the top row and the 
starting and ending columns. This actually can be used to center 
a line anywhere on the screen and write it using the attributes 
desired. 


WOIGIISIANIIISI IA AIS AIAS IIA IIA IIS IISA I II IISA IS II NASI SSI NASI IAI ISI ISN IISA IA IIA I IAI IAI III. 


header(row,col,ecol,str,at) 
int col, row, ecol, at; 
char *str; 
( 
char buf[81]; 
register int i, len; 
int atsave; 


atsave - attrib; 

attrib - at; 

len ecol - col - 1; 

for ( i = p; í < len; itt) 
bu£[1] = τας 

for ( i = (len - strlen(str))/2; *str; ) 
buf[i++] = wstr++; 

buf[len] = "ΧΡ"; 

display((++col) , (++row) , buf); 

attrib = atsave; 

) 


PPOBSASISAISSAI IAAI III IIIS III III УРУСУСУСУСУСУСЎС УСУ СУС УСУ СУС УС УС УС УС УС УС УС УС УСС С С СС СУС AAV AI III III IIIS IIS 
drawline() 


Draw a horizontal line across the screen with proper vertical 
line terminators. 


Yotejototeteteterefetetekejeteteteyjeteteteietejeteteteiejejetoteteieietetetoieietetefetetieierejeteteteiejejeteteteieiefefetetetejetetetejejefefetedejeyeye / 


drawline(row,ucol,lcol,atr) 
int row,ucol,lcol,atr; 
( 
char linestr[81]; 
register int i; 
int attsave; 


linestr[9] - LVR; 
linestr[lcol-ucol] = RVR; 
linestr[lcol-ucol+1] = f; 


for (і = 1; i < (lcol-ucol); i++ ) ( 
linestr[i] = HRZ; 
} 


attsave = attrib; 

attrib = atr; 
display(ucol,row,linestr); 
attrib - attsave; 
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[езек IAA AVAL A AIL IAI DALIAN IIIA NESS L SLND VIE IBID SES DEB УС СУС СУС СУС СУС СУС СУУС SEVEN ELE SED SEVEN VDE ILE 


drawvert() 
Draw a vertical line down the screen with proper horizontal line 
terminators. 


τυ IAAI IASI AIA IAAI IAAI IAAI IAAI IAI II IIIA II AIA IAA INI ISL INI КУСУУ УА 


drawvert(col,urow,lrow,atr) 
int col,urow,lrow,atr; 
( 

register int 1; 

int attsave; 


attsave = attrib; 

attrib = atr; 

cmd[g] = UHZ; 

cmd[1] = 9; 

display(col,urow,cmd) ; 

cmd[g] = LHZ; 

cmd[1] = f; 

display(col,lrow,cmd); 

cmd[g] - VRT; 

emd[1] = 9; 

for ( i = +turow; i < lrow; 
display(col,i,cmd); 

attrib = attsave; 

) 


ου... 56 υυυ-υν».....-΄--.»-,,..»-»-,...--΄ᾱ΄-Ἡ",.ν;νηἪ..---ὄ-”--ππ 


с15() 
Clear the video screen and home the cursor to the upper left 
screen corner 


ος οσο ο III AI IATA IAT IA IIA IIA INI III AIA SAAS AID οσο 
cls() 
( 
CLS; 
scr счгв(0,0); 
) 
OTH IAISA ISIS I ISAS IIIA III I IISA III II SAI III ISIS SI IS I SAAS IIIS I AI III ISIS SII ISAS SII III 
* 
* display(x,y,str) --- displays the string pointed to by the variable 
ж "str" beginning at the cursor location specified by 
* (x,y). Uses direct video memory access. The chars 
* are displayed in the colors determíned by the value 
κ of "attrib". 


FITF IAS ЗС СУС ЗСУ СУС СУС СУС С СУС ЗСУ AISI УС СУС С IISA ISA III IIA IIA III III II IAI IAI IIA INI ILI III IA IIE / 
display(x,y,str) 
int x; yi 
char *str; 
( 
register int len, atr; 
switch (attrib) ( 
case 1: 
atr - normal; 
break; 
case 2: 
atr - revrs; 
break; 
case 3: 
atr = hilite; 
break; 
case 4: 
atr = rhilite; 
break; 


default: 
atr = normal; 


) 

len - strlen(str); 

for С + 188-- 7 2 
/ж 


ж Тһе next segment of code is conditionally assembled here for ап IBM-PC to 
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ensure that the characters are only written to the video monitor during the 
video retrace mode or flyback. This code should work on all close 
compatibles. 


if ( vflag -- IBMCOLOR ) 
#asm 


MOV AX, 49H ;Set communications segment address 
DS 7.2. in DS register 
DS,AX 
DX,[63H] ;Get 6845 Video Controller Base addr 
;Form status port address 


;Get controller status 

;Is horizontal retrace low? 

;Wait until it is 

;Disable interrupts until write compl 
;Test for retrace high 


;Wait until іс is 

;Small delay loop 

4... So hash is not written at left 
; .. margin of screen 


pokew((y κ 8g + xt) << 1,Video Mem,(atr << 8) | (*str++ δ. ὄχρρε 


if ( vflag -- IBMCOLOR ) 
#asm 


STI ;Reenable interrupts 
#endasm 


) 
) 


scr_curs(y,x); 


SPECIAL 


TANDY 1000 
Multifunction Board 


Ф512 K Ram 
© RS-232C Serial Port 
€ DMA Controller 

€ Clock-Calendar 


525995 


ADDITIONAL TANDY COMPATIBLE 
PRODUCTS AVAILABLE 
CALL FOR A FREE CATALOG 


Micro Mainframe 4М1% 


11285-E Sunrise Gold Circle 
Rancho Cordova, CA 95670 


(916) 635-3997 πο Г> 


LOW LOW PRICES 
on 
Hard Disk Drives 


Floppy Disk Drives 
Star Printers 
Anchor Modems 
Diskettes 
Color Computer Dr б 













SPECIAL 


IBM XT COMPATIBLE 
2 FLOPPY DRIVES 
1 10 MEG HARD DISK 
MONOCHROME OR COLOR CARD 
256K MEMORY EXPANDIBLE TO 640K 
$1195.00 
САЦ us 100416177 278-6555 елен wouinies мито. 


ORDER TOLL FREE 4-800-635-0300 617-278- 6555 


TRUE DATA PRODUCTS 
9 South Main St. We weicome 
i Uxbridge,Mass 01569 via, Master Charge Z —- 


(617) 234-7047 Checks {allow 2 weeks lor Clearing! 
HOURS MON SAT 9 δίΕ5ΤΙ “СОО Adds200 


617-278-6555 
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anyopoly is a computerized 
T take-off on an old traditional 

board game. Your Tandy 1000 
BASIC is a powerful implementation of 
Microsoft BASIC. It provides all the 
tools needed to create a game which can 
provide hours of pleasure for the entire 
family. The full playing board is used in 
this version of the game, complemented 
by graphically rolling dice, moving 
playing pieces, sound effects, a window 
for quick summaries and a banker who 
never makes a mistake with your 
money! 
Tanyopoly requires a minimum of 









Leonard Hyre works as a claims repre- 
sentative for the Social Security Admin- 
istration. He has written several articles 
for THE RAINBOW, PCM s sister publi- 
cation for the Color Computer, and is 
the author of a number of commercial 
programs. He may be contacted at P.O. 
Box 403, Cambridge, MD 21613; (301) 
228-0064. 


76 






PCM July 1986 











The famou 


256K of memory in your Tandy 1000. 
The program is long, but it didn't start 
out to be such a big project. Friends and 
family kept adding ideas for special 
features, and pretty soon I was looking 
at over 30K of BASIC. Once added, I 
couldn't bear removing any of the 
goodies. It should be possible to modify 
Tanyopoly to run on the 1200, 2000 and 
3000 machines. To do so, change the 
SCREEN 6 color display to a SCREEN 2 
monochrome version. Remove the 
CLERR 32768 statement and PRLETTE 
statements. Other changes would be of 
a minor nature. 

Here is a suggestion as to the order 
in which the listing should be typed in. 
First type in lines 1-320, then skip to 
2985 and do all the lines following. If 
you then insert a temporary line at 340 
(349 GOTO 349), you can test and debug 
the playing screen completely, before 
going into the playing portion of the 
program. When all is working, remove 
the temporary Line 340 and type in the 














s board game adapted for 
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rest of the program. If you are a novice, 
you should be aware that the balance of 
the program will not run until virtually 
all of it is completed. 

The first section of the program is the 
title screen, set up to provide a bit of 
color and flash to introduce the game. 
I have chosen to create my own letters 
for the title, as seen in lines 130 and 135. 
These are put in place on the screen 
using the DRAW command to overlap 
three sets of letters in different colors. 
This gives a nice look to the title, which 
is then surrounded by a flashing mar- 
quee created using the STYLE option of 
LINE (Line 180). 

The main program is set up in the 
area from lines 195-424. We must care- 
fully dimension all the array space that 
will be needed to get dice, windows, 
playing pieces, etc. I have liberally 
sprinkled the listing with REM state- 
ments so you can follow most of the 
subroutines which make up the pro- 
gram. I will not be going into great 





your Tandy 1000 


YOPOLY 





By Leonard Hyre 
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detail about some of the program struc- 
ture, however, some of the subroutines 
are unique and may be of interest to the 
programmers out there. 

The core of the program, in lines 405 
through 550, keep track of who's turn 
it is and where players are on the board, 
sends the player off to special features 
(“Free Parking," “Income Tax," etc.), 
and changes players at the end of a roll 
unless a double is rolled. All other 
routines lead back to the core. 

Rolling the graphic dice is the next 
subroutine. The dice, having been 
created way down in lines 3315-3335, 
are manipulated in lines 560 through 
645, putting the dice obtained with the 
earlier GET, in the proper location on 
the screen. When a player presses any 
key, the roll of the dice ceases, a final 
set is put on screen and the player is told 
what he has rolled! 

Property! Property! Who owns it? 
Can I buy it? Do I have a hotel on it? 
Control of money and property is the 


= == o mw АЫ сө nie ης 5 "m 


thing. Several subroutines are used to 
control these various functions individ- 
ually. There are subroutines for *Buy" 
(785-900), *Book Status" (850-900), 
“Improve Property" (910-1110), “Asset 
Listing to Screen or Printer" (1120- 
1235), “Mortgage” (1245-1360), “Un- 
mortgage" (1370-1445) and “Rent Due” 
(1470-1525). All of these are similar 
because they use the information read 
into memory earlier, to control just who 
can do what and when. 

For example, the Buy routine first 
checks (in lines 800-805) to see if the 
players location is one that can't be 
bought or sold (such as “Jail” by 
checking to see if O( X) is 5 (X = Lo- 
cation and 5 indicates “not for sale." If 
this is true, “You can't buy that!” is 
shown to the potential buyer, and the 
routine ends. If not true, the routine 
continues. If the bank is the owner 
(0(.X)70), the property is sold to the 
purchaser. Otherwise, the property 
belongs to the other guy or already 





M nee «-» © “αν - -. „== >= LE 
und — οσα m m em Tow ο qM © E 
rut 


щото = "o ewe Re = ἄν «Ὁ =< = р о - 
- -— Ao == hom m m m эю mop = @ = νο © = = o^ ν ж = a 







belongs to the player. If either is true, 
an announcement is made (lines 820- 
835) and the routine finishes with GOTO 
220. At that time GOSUB 860 is made 
to update *Book Status" and the next 
option is offered to the player. Other 
subroutines employ the same type of 
logic to keep track of their particular 
jobs. Follow through the lisitng if the 
*hows and whys" hold your interest. 
Three particular routines use the GET 
and PUT commands, and generally give 
novice programmers fits! We use GET to 
save a portion of the graphic screen in 
memory until we wish to put it on the 
screen where we choose. For example, 
in the Summary Window routine (lines 
2850 through 2965), we get a rectangu- 
lar area first (Line 2960) and save it as 
V. We then use a simple LINE statement 
to black out that same area as window 
effect and print any information we 


choose on it. When done, we just have 
to put back the area we got with the GET. 
See Line 2960 for the command. The 
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PSET Option tells BASIC to put the array 
back exactly as it was. The dice routine 
uses the same technique as does the 
moving playing pieces. 

Also of possible interest are the sound 
effects. A siren accompanies the inmate 
in the “go to jail” scenarios. Landing on 
an opposing player's railroad will illicit 
an approaching train horn. Arriving in 
free parking, you get tooted at before 
being awarded the “pot.” The Jail 
routine is at lines 2200-2280, the Rail- 
road Fees at 2365-2430 and the Free 
Parking from 2290 through 2310. 

Two special notes concerning typing 
in the program must be made. Line 210 
has a statement, CLEAR 32768. Do not 
type in the exclamation mark as seen in 
the listing. It will magically appear on 
its own. The other tricky typing propo- 
sition is the playing board borders (lines 
3255-3290). They are created on the 
Tandy 1000 by holding down the ALT 
key and typing the ASCII code for the 
particular character needed. When you 
release the ALT key the character will 
appear. I have given you the codes for 


The listing: 


the needed characters in the remarks 
just above this portion of the listing. Be 
sure to get the proper number of spaces 
in the lines here or your board will be 
a scrambled egg or worse! 

Ah! At last it’s finished. Tanyopoly 
has some special rules which you should 
be aware of before playing. I will sum- 
marize some of them here. 

There is no limit to the number of 
“Doubles” you can roll on your turn. 

When you land on a property and 
rent is due your opponent, the program 
automatically takes the money away 
from you and gives it to the property 
owner. If this rent due is greater than 
your assets and cash, you are bankrupt 
and the winner is announced. If your 
cash and assets are great enough to 
cover your debt, but you are short of 
cash, the program will force you to 
continue to mortgage property until 
you have a positive amount of cash. 

A fast version of the game is offered 
before play begins. If you choose, the 
program will randomly deal out the 
property to the two players or teams. 


This leads to a much faster game. 
However, if one player gets two or three 
books and the other player gets zilch, 
please don’t blame me. It’s just the hand 
of fate. You can always reason it out 
with each other (sure you can). 

In jail, you do not lose a turn. If you 
don’t have a Get-Out-Free credit, you 
must cough up the $50. 

When buying houses or hotels, each 
piece of property in the book must be 
improved equally. 

If the typing is overwhelming, I'll be 
glad to provide you with the program 
on a disk for $6.00 to cover costs (L. 
Hyre, P.O. Box 403, Cambridge, MD 
21613). Alternatively, by the time you 
read this, PCM On Disk should be 
available, giving you all the MS-DOS 
programs in the month's issue. If you 
encounter problems, feel free to contact 
me in writing, by phone or by leaving 
a message to MUNCH in the Delphi MSDOS 
Special Interest Group, sponsored by 
PCM. 

By all means, have fun and be careful 
or you just might “go to jail!” m 


MRT Tt ttt ti ttt tT ett TTT e eee eee eee eee eee deed he kky 
"ж TANYOPOLY...A Board Game for the TANDY 1000 Computer * 
R (С) 12/85 Ъу L.Hyre 


"ж 


ж > 256K or More REQUIRED! < 


ж 


τοι: τ... ye HK KK KEKE KEKE KEKE KK KKK KKK ХКО 


100 '*** TITLE SCREEN *** 
195 ' 

119 KEY OFF:SCREEN 1:CLS 
115 
120 ' 
125 
126 ' 


COLOR 9: РАТЕТТЕ 1,14:PALETTE 2,12:PALETTE 3,9 


ΧΧΧ Create Special Lettering *** 


130 ХТ5-"1/201,604818р41,60201,6" : XAS="U24R16D24L4U1LGL8D1GL4" : XNS="U24R4F8U8R4D24L4H 


8D8L4" 


135 XY$-"U8H8U8RAD8R16U8RAD8G8D8L8" : XO$="U24R16D24L16" : XP$-"U24R16D12L12D12LA":X 


L$="U24R4D2GR12D4L16" 


140 XTANS="xxt$ ; BR18 ; XXAS ; BR25 ; XXNS$ ; BR32 ; XXY$ ; BR24 ; XXO$ ; BR24 ; XXP$ ; BR24 ; XXO$ ; BR24 


;XXL$;BR24;XXY$;" 
145 
150 
155 
160 ' 
165 
17g ' 
175 
180 
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"ххх Flashing Marquee *** 


FOR FLASH-1 TO 3:В1-18:В2-58:В3-302:В4-132 
FOR BOX-1 TO 8:LINE(B1,B2)-(B3,B4) ,CX,B,&H5555:B1=B1-2:B2=B2-2:B3=B3+2 : B4=B4 


DRAW"BM54,10 ;xxtan$;":DRAW"BM56,101;C2;XXTAN$ ; " : DRAW"BM58,102; C1; XXTAN$ ; " 
ІІМЕ (29,69) - (399,139) ,16,B 
LOCATE 15,16:PRINT"by L. Hyre":CX-1 





+2:CX=CX+1:IF CX=4 THEN СХ-СХ-3 

185 NEXT BOX,FLASH 

199 ' 

195 "ххх MAIN PROGRAM SETUP HERE *** 

299 ' 

205 

210 CLEAR ,,,32768! 

215. 

220 “ххх Reserve Space for Arrays ЕТС *** 

225 ' 

230 DIM V(234Q@) ,U(33) ,W(33) ,NU(76) ,NV(76) ,NW(76) ,NX(76) ,NY(76) ,NZ(76) 

235 DIM P$(49) ,0(40) ,Е0(40),Һ1(40),вҺ2(40),83(40) ,R4 (4B) , 5 (40), НС(49) ,MV(AQ) , UN( 
49),C1$(12),C2$(12),C4$(12),C5$ (12) , RL1(12) ,RL2(12) , P(49) ,H(4@) , PROP(40) , B(A9) ,U 
РЕОР(40),01(40),01(40) 

249 ' 

245 RANDOMIZE TIMER 

250 L1-9:L2-0:TH(1)-0:TH(2) -9:JF(1)-9:JF(2) -Q:JB(1) -0:JB(2) 2g: RROWN(1) -2 : RROWN(2 
)=% : FM=19@: PRP(1)-0:PRP(2)-0:DB-0:M(1)-1599:M(2)-15990 

255 FOR ХХ-1 TO 49:H(XX)=@:NEXT 

260 / 

265 ' 

270 '*** Set Up Game For Play 

275°" 

280 GOSUB 2985:'*** Read in Property *** 

285 GOSUB 3485:'*** Read in Chancey and Chest *** 

290 GOSUB 3540:'**** Read in Playing Piece Positions 

295 ' 

300 KEY OFF:SCREEN 6:COLOR 1,0 

305 PALETTE 1,15:PALETTE 2,4:PALETTE 3,9 

310 CLS 

315 GOSUB 3255 

320 

325 

330 

335 

349 '** SET UP OPTIONS AND INITIAL VARIABLES ** 

345 " 

350 DN=6:FOR N-1 TO 2:LOCATE DN,17,1:INPUT"PLAYER NAME:";N$(N) :DN=DN+1:NEXT N 
355 MID$(N$(1),1,1)=CHR$((ASC(LEFTS$(N$(1),1)) AND 95)) 

360 MID$(N$(2),1,1)-CHRS$((ASC(LEFTS$ (N$ (2),1)) AND 95)) 

365 IF ІЕМ(М6(1))>7 THEN N$(1)-LEFTS$(N$(1),7) 

370 IF LEN(N$(2))>7 THEN N$(2)-LEFTS$ (N$ (2) ,7) 

375 LOCATE 11,17:INPUT"Fees Paid Into FREE PARKING (Y/N)";FP$:IF FP$-"Y" OR ЕР5- 
"у"ТНЕМ FP-1 ELSE IF FP$-"N"OR FP$-"n"THEN FP-2 ELSE BEEP:LOCATE 11,51:PRINT" 
":GOTO 375 

380 LOCATE 12,17:INPUT"Pass Out The Properties ? (Y/N)";POS$:IF PO$-"y"OR POS=" 
Y" THEN 2565 

385 GOSUB 69%:LOCATE 11,17:PRINT"Let's play TANYOPOLY!";:LOCATE 12,17:PRINT"OK.. 
.I'll roll to see who goes first!":FOR DL-1 TO 1000:МЕХТ DL:FOR PICK-1 TO 15:500 
ND INT(RND(1)*599),.8:FOR DL-1 TO 15:NEXT:NEXT PICK 

390 RLI-INT(RND*6)-41:RL2-INT(RND*6)41:IF RLI-RL2 THEN 390 

395 IF RLIPRL2 THEN TR-1 ELSE TR=2 

400 LOCATE 13,17:PRINT N$ (TR);" goes first!"; 

495 FOR р1=1 TO 1599:NEXT:GOSUB 665:GOSUB 690 

410 LOCATE 6,17:PRINT"PLAYER:";N$(1):LOCATE 6,47:PRINT"PLAYER:";N$(2); 

415 LOCATE 7,17:PRINT"CASH $";M(1):LOCATE 7,47:PRINT "CASH $";M(2) 

420 LOCATE 3,79:COLOR 3:PRINT PP1$;:LOCATE 9,79:COLOR 2:PRINT PP2$;:COLOR 1 

425 GET(0,0) -(15,8) ,U:GET(0,2) - (15,8) ,W 

439 ' 
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435 '***** WHO'S TURN IS IT ANYWAY AND WHERE IS НЕ **** 


дар" 


445 LOCATE 8,39:PRINT STRING$(22," ");:GOSUB 690 
450 LOCATE 8,30:PRINT N$(TR);"'S Turn." 
455 LOCATE 11,17:1F TR-1 THEN PRINT "YOU'RE AT ";P$(L1) ELSE PRINT "YOU'RE АТ "; 


P$ (L2) 
460 ТЕ 


TR-1 AND L1-0 THEN LOCATE 11,17:PRINT"YOU'RE AT GO!";:ELSE IF TR=2 AND L2 


=Ø THEN LOCATE 11,17:PRINT"YOU'RE AT GO!"; 
465 GOSUB 579:LOCATE 13,17:IF TR-1 THEN PRINT"YOU MOVE TO ";P$(L1);ELSE IF TR=2 
THEN PRINT"YOU MOVE TO ";P$(L2) 


870 IF 
475 IF 
480 IF 
485 IF 
499 IF 
) THEN 
495 IF 
) THEN 


500 IF 


FP=1 AND (ТЕ-1 AND 11-20) OR (TR=2 AND L2=29) THEN 2300 

(TR=1 AND 11-30) OR (TR-2 AND 12-30) THEN 2210 

(ТЕ-1 AND L1-4) OR (TR-2 AND L2-4) THEN GOSUB 2115 

(ТЕ-1 AND 11-38) OR (TR-2 AND L2-38) THEN GOSUB 2165 

(TR=1 AND (11-2 OR 11-17 OR L1-33)) OR (TR=2 AND (12-2 OR 12-17 OR 12-33) 
GOTO 1545 

(ТЕ-1 AND (11-7 ОВ 11-22 OR L1-36)) OR (TR=2 AND (12-7 OR 12-22 OR L2=36) 
GOTO 1685 

TR-1 AND O(L1)=2 AND (11=5 OR 11=15 OR 11-25 OR L1-35) THEN GOSUB 2375:GO 


TR-2 AND O(L2)-1 AND (1,2-5 OR 12-15 ОВ L2=25 OR 12-35) THEN GOSUB 2375:60 
TR-1 AND O(L1)-2 AND (L1-12 OR L1-28) THEN GOSUB 2455:GOTO 525 


TR-2 AND O(L2)-1 AND (L2=12 OR L2=28) THEN GOSUB 2455:GOTO 525 
(ТЕ-1 AND O(L1)-2) OR (ТЕ-2 AND O(L2)-1) THEN GOSUB 1470 


LOCATE 13,45:COLOR 2:PRINT"<Any Key»";:COLOR 1 
AKS=INKEY$:IF AK$-"" THEN 539 
GOTO 729 


IF 
IF 


TR-1 THEN TR=TR+1 ELSE IF TR=2 THEN TR=TR-1:'*** CHANGE PLAYERS HERE! 
DB-1 THEN GOSUB 2830:'*** HEY! THAT'S A DOUBLE 


GOTO 445 


'X** ROLL DICE ROUTINE ** 


RL1=INT(RND(1)*6)+1:RL2=INT(RND(1)*6)+1 


583 
584 
585 


TR=1 AND L1+(RL1+RL2)=L2 THEN 579 
TR=2 AND L2+(RL1+RL2)=Ll THEN 570 

TR=1 AND L1+(RL1+RL2)=39 AND (142-16) THEN 570 
TR=2 AND L2+(RL1+RL2)=39 AND (11-10) THEN 570 
(TR=1 AND 11-40) AND (RL1+RL2)=L2 THEN 570 
(TR=2 AND 12-40) AND (RL1+RL2)=L1 THEN 570 
RL1=RL2 THEN DB=1 


59% LOCATE 21,32:COLOR 1:PRINT"HIT A KEY TO STOP"; 
595 RX=INT(RND(1)*6)+1:RY=INT(RND(1)*6)4+1 

600 IF RX-1 THEN PUT(258,140),NU,PSET ELSE IF RX=2 THEN PUT(258,140),NV,PSET ELS 
E IF RX-3 THEN PUT(258,149),NW,PSET ELSE IF RX=4 THEN PUT(258,149),NX,PSET ELSE 
IF RX-5 THEN PUT(258,149),NY,PSET ELSE IF RX-6 THEN PUT(258,149),NZ,PSET 

605 SOUND ІМТ(ЕМр(1)%300),.1 

619 IF RY-1 THEN PUT(347,149),NU,PSET ELSE IF RY-2 THEN PUT(347,149),NV,PSET ELS 
E IF RY-3 THEN PUT(347,149),NW,PSET ELSE IF RY-4 THEN Р0Т(347,140),МХ,Р5ЕТ ELSE 
IF RY-5 THEN PUT(347,149),NY,PSET ELSE PUT(347,149),NZ,PSET 

615 АКф-ІМКЕҮ9:ІҒ AK$-""THEN 595 

620 LOCATE 21,32:PRINT STRING$(17," "); 


625 
LSE 
LSE 
639 
LSE 
LSE 


RL1=1 THEN PUT(258,149),NU,PSET ELSE IF RL1=2 THEN PUT(258,140),NV,PSET E 
RL1=3 THEN PUT(258,149),NW,PSET ELSE IF RLl-4 THEN PUT(258,140),NX,PSET E 
RL1=5 THEN PUT(258,140),NY,PSET ELSE PUT(258,149),NZ,PSET 
RL2-1 THEN PUT(347,149),NU,PSET ELSE IF RL2-2 THEN PUT(347,149),NV,PSET E 
RL2-3 THEN PUT(347,149) ,NW,PSET ELSE IF RL2-4 THEN PUT(347,140),NX,PSET E 
RL2=5 THEN Р0Т(347,140),МҮ,Р5ЕТ ELSE Р0Т(347,140),М2.,Р5ЕТ 
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635 LOCATE 12,17:PRINT "YOU ROLLED A ";RL1;" AND ";RL2;" FOR A MOVE OF ";RLI-RL2 
640 IF TR-1 THEN GOSUB 2665 ELSE GOSUB 2740 

645 RETURN 

659 ' 

655 '** WIPE CLEAN BOX 1 ** 

669 ' 

665 FOR WIPE-6 TO 8:LOCATE WIPE,17:PRINT STRTNG$(47," ");:NEXT 

670 RETURN 

55 ' 

680 '** WIPE CLEAN BOX 2 ** 

685 ! 

699 FOR WIPE-11 TO 13:LOCATE WIPE,17:PRINT STRING$(47," ");:NEXT 

695 RETURN 

799 ' 

705 ' 
719 ' 
C15. 
720 GOSUB 860:ҒОВ DL-1 TO 1299:NEXT:GOSUB 699:LOCATE 11,17:PRINT N$(TR);"'s Choi 

ce? --»";:LOCATE 7,23:PRINT M(1);:LOCATE 7,53:PRINT M(2); 

725 IF M(TR)+PRP(TR)=<@ THEN 2330 

730 IF M(TR)«1 THEN LOCATE 11,40:PRINT"[ YOU MUST MORTGAGE ! ]";:COLOR 2:LOCATE 
12,42:PRINT"TANYOPOLY RULE:MUST";:LOCATE 13,42:PRINT"KEEP CASH ON HAND !";:COLOR 
1:FOR DL-1 TO 1000:МЕХТ:СОТО 1255 

735 LOCATE 11,4@:COLOR 1:IF TR-1 THEN PRINT"[ ";Р9(11);" ]";:ELSE PRINT "[ ";P$( 

L2);" 1"; 

740 LOCATE 12,22:PRINT"«B»uy <A>ssets <I>mprove <T>rade" 

745 LOCATE 13,22:PRINT"<M>ort <U>nmort <S>ummary <N>ext"; 

750 AKS=INKEY$:IF АК%-""ТНЕМ 759 

755 IF AK$="B"OR AK$-"b" THEN 795 ELSE IF AK$-"I"OR AK$-"i" THEN 920 ELSE IF AKS 

="t"OR АК$="Т"ТНЕМ 1980 ELSE IF АҚб-"5" OR AK$-"s" THEN 2860 ELSE 760 

760 IF AK$-"A"OR AK$-"a"THEN 1130 ELSE IF AK$-"M"OR AK$-"m"THEN 1255 ELSE IF ΑΚΦ 

-"U"OR AK$-"u"THEN 1380 ELSE 765 

765 IF AK$-"N" OR AKS="n"THEN 540 

770 BEEP:LOCATE 13,49:GOTO 750 

A9 * 

780 ' 

785 '*** BUY PROPERTY HERE *** 

790 ' 

795 GOSUB 699:LOCATE 11,17:PRINT"LOCATION:";:IF TR-1 THEN PRINT P$(L1) ELSE PRIN 

T P$(L2) 

800 IF TR-1 AND O(L1)-5 THEN LOCATE 12,17:COLOR 2:PRINT"You can't BUY that!":BEE 

P:COLOR 1:GOTO 720 

895 IF TR-2 AND O(L2)-5 THEN LOCATE 12,17:COLOR 2:PRINT"You can't BUY that!":BEE 

P:COLOR 1:GOTO 720 

810 IF ТЕ-1 AND O(L1)-0 THEN LOCATE 12,17:COLOR 1:PRINT"PURCHASE PRICE=$";P(L1): 

COLOR 1:M(1)-M(1)-P(L1):PRP(1)-PRP(1)4MV(L1):LOCATE 7,23:PRINT M(1);" "SOC 

-1:ІҒ L1-5 OR 11-15 OR 11-25 OR 11-35 THEN RROWN(1)=RROWN(1)+1:GOTO 72%:ELSE СОТ 

0 720 

815 IF TR-2 AND 0(1,2)-Й THEN LOCATE 12,17:COLOR 1:PRINT"PURCHASE PRICE-$";P(L2): 

M(2)-M(2)-P(L2):PRP(2)-PRP(2)4MV(L2):LOCATE 7,53:PRINT M(2);" ";:0(12)-2:1Е 12 

=5 OR L2-15 OR L2=25 OR L2=35 THEN RROWN(2)=RROWN(2)+1:GOTO 729:ELSE GOTO 720 
820 IF ТЕ-1 AND O(L1)-2 OR O(L1)-4 THEN COLOR 2:LOCATE 12,17:PRINT N$(2);" OWNS 

THAT!!!":BEEP:COLOR 1:GOTO 720 

825 IF TR=2 AND O(L2)-1 OR O(L2)-3 THEN COLOR 2:LOCATE 12,17:PRINT N$(1);" OWNS 

THAT!!!":BEEP:COLOR 1:GOTO 720 

839 IF TR-1 AND O(L1)-1 OR O(L1)-3 THEN LOCATE 12,17:COLOR 1:PRINT"It's Already 

YOURS!" 

835 IF TR-2 AND O(L2)-2 OR O(L2)-4 THEN LOCATE 12,17:COLOR 1:PRINT"It's Already 

YOURS!" 


х*** MAIN MENU HERE жх 
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840 FOR DL-1 ТО 900:МЕХТ:СОТО 720 

845 ' 

850 %%% CHECK FOR BOOK STATUS HERE ххх 

855 ' 

860 IF (0(1)-ТЕ OR O(1)-TR42) AND (0(3)=TR OR O(3)-TR42) THEN B(1)=TR:B(3)=TR 

865 IF (0(6)-ТЕ OR 0(6)=TR+2) AND (0(8)=TR OR 0(8)=TR+2) AND (0(9)=TR OR 0(9)-ТЕ 
+2) THEN B(6)-TR:B(8)-TR:B(9)-TR 

879 IF (0(11)-ТЕ OR 0(11)-ТЕ%2) AND (0(13)-TR OR O(13)-TR42) AND (0(14)=TR OR O( 
14)=TR+2) THEN B(11)-TR:B(13)-TR:B(14)-TR 

875 IF (0(16)-ТЕ OR 0(16)=TR+2) AND (0(18)-TR OR 0(18)=TR+2) AND (0(19)=TR OR O( 
19)=TR+2) THEN B(16)-TR:B(18)-TR:B(19)-TR 

880 IF (0(21)-TR OR 0(21)=TR+2) AND (0(23)=TR OR 0(23)=TR+2) AND (0(24)=TR OR O( 
24)=TR+2) THEN B(21)-TR:B(23)-TR:B(24)-TR 

885 IF (0(26)-TR OR 0(26)=TR+2) AND (0(27)-TR OR 0(27)=TR+2) AND (0(29)=TR OR O( 
29)=TR+2) THEN B(26)=TR:B(27)=TR:B(29)=TR 

899 IF (0(31)-ТЕ OR 0(31)=TR+2) AND (0(32)-TR OR 0(32)=TR+2) AND (0(34)-TR OR O( 
34)=TR+2) THEN B(31)=TR:B(32)=TR:B(34)=TR 

895 IF (0(37)=TR OR 0(37)=TR+2) AND (0(39)=TR OR 0(39)=TR+2) THEN B(37)=TR:B(39) 
=TR 

900 RETURN 

995 ' 

910 'xxxx* IMPROVE PROPERTY GOES HERE ***** 

915 ' 

920 GOSUB 69%:LOCATE 11,31:COLOR 1:PRINT"WHICH TO IMPROVE ?";:COLOR 3:LOCATE 12, 
19:PRINT"THIS ONE?";:COLOR 2:LOCATE 13,29:PRINT"[ Y/N ]";:COLOR 1 

925 FOR PROP= 1 TO 4β:ΙΟΟΑΤΕ 13,56:PRINT PROP; 

939 GOTO 1965 

935 AKS=INKEY$:IF AK$-""THEN 935 

940 IF AK$-"y" OR AK$-"Y" THEN IM=PROP:LOCATE 12,31:PRINT STRING$(18," ");:GOTO 
960 

945 LOCATE 12,31:PRINT STRING$(18," "ἡ; 

950 NEXT 

955 GOTO 729 

960 GOSUB 699:LOCATE 11,17:PRINT"HOUSING CONSTRUCTION:":LOCATE 12,17:COLOR 2:PRI 
NT"MUST BUY 1 FOR EACH";:LOCATE 13,17:PRINT"PIECE OF THE BOOK !":COLOR 1 

965 IF ІМ-1 OR IM-3 OR IM-37 OR IM-39 THEN MINHS-2 ELSE MINHS-3 

970 LOCATE 11,42:PRINT P$(IM);:LOCATE 12,42:PRINT"Min.-";MINHS;"* $"HC(IM); 

975 LOCATE 13,42:COLOR 1:PRINT"PURCHASE [Y/N]? "::COLOR 1 

980 AKS-INKEYS:IF АК9=""ТНЕМ 980 ELSE IF AK$-"N"OR AK$-"n"THEN 720 

985 IF AK$-"Y" OR AK$-"y" THEN 995 

990 BEEP:GOTO 980 

995 IF M(TR) < (MINHS*HC(IM)) THEN BEEP:BEEP:GOTO 729 

1000 M(TR)-M(TR) - (MINHS*HC(IM) ) 

1005 LOCATE 7,23:PRINT M(1);:LOCATE 7,53:PRINT M(2); 

1010 ІМ-1 OR IM=3 THEN H(1)=H(1)+1:H(3)=H(3)41 

1915 ІМ-6 OR ІМ-8 OR IM-9 THEN H(6)-H(6)41:H(8)-H(8)41:H(9)-H(9)41 

1020 ІМ-11 OR IM-13 OR IM-14 THEN H(11)-H(11)41:H(13)-H(13)41:H(14)-H(14)41 
1025 IM-16 OR IM-18 OR ІМ-19 THEN H(16)-H(16)41:H(18)-H(18)41:H(19)-H(19)-1 
1030 ІМ-21 OR ІМ-23 ОВ IM=24 THEN H(21)=H(21)+1:H(23)=H(23)+1:H(24)=H(24)+1 
1035 ІМ-26 ОВ ІМ-27 ОВ ІМ-29 THEN H(26)=H(26)+1:H(27)=H(27)+1:H(29)=H(29)+1 
1040 IM-31 OR IM-32 OR IM-34 THEN H(31)=H(31)+1:H(32)=H(32)+1:H(34)=H(34)41 
1045 ІМ-37 OR IM-39 THEN H(37)=H(37)+1:H(39)=H(39)41 

1050 ТЕ-1 THEN PRP(1)=PRP(1)+(MINHS*HC(IM) ) /2: TH(1)- TH(1)--MINHS 

1055 TR-2 THEN PRP(2)=PRP(2)+(MINHS*HC(IM) ) /2: TH(2) -TH(2)4MINHS 

1060 сото 720 

1065 IF B(PROP)<>TR THEN 945 

1070 IF H(PROP)-5 THEN 945 

1075 IF (PROP-6 OR PROP-8 OR PROP-9) AND (0(6)<>TR OR 0(8)<>TR OR 0(9)<>TR) THEN 
945 
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1080 IF (PROP-11 OR PROP=13 ОК PROP-14) AND (0(11)<ТЕ OR 0(13)<>TR OR 0(14) «ΣτΕ 
) THEN 945 

1085 IF (PROP-16 OR PROP-18 OR PROP-19) AND (0(16)<ТВ OR 0(18)<>TR OR 0(19)<>TR 
) THEN 945 

1090 IF (PROP-21 OR PROP-23 OR PROP-24) AND (0(21)<>TR OR 0(23)<>TR OR 0(24)<-ТЕ 
) THEN 945 

1095 IF (PROP-26 OR PROP=27 OR PROP-29) AND (0(26)<>ТВ OR 0(27)<>ТЕ OR 0(29)<>TR 
) THEN 945 

1100 IF (PROP-31 OR PROP=32 OR PROP=34) AND (0(31)<ТВ OR 0(32)<>TR OR 0(34)<>TR 
) THEN 945 

1105 IF (PROP-37 OR PROP=39) AND (0(37)<>TR OR 0(39)<>TR) THEN 945 

1119 LOCATE 12,31:PRINT P$(PROP);:GOTO 935 

1115 ' 

1120 '***** ASSETS GO HERE ххх 

11257! 

1130 GOSUB 699:LOCATE 8,17:PRINT STRINGS$(45," ");:LOCATE 8,17:COLOR 1:PRINT"ASSE 
TS OF:";:COLOR 2:PRINT NS$(TR);" "::COLOR 1:PRINT"--> <P>rinter <S>creen"; : BE 
EP: ASSET(1)=M(1)+PRP(1) :ASSET(2)=M(2)+PRP(2) 

1135 LOCATE 8,61:AKS=INKEYS:IF AKS=""THEN 1135 

1140 IF AK$-"P" OR AKS="p" THEN 1185 ELSE 1145 

1145 LOCATE 11,17:PRINT"ASSETS(Cash & Prop)";:LOCATE 12,17:COLOR 2:PRINT"HIT KEY 
TO CONT->";:COLOR 1:LOCATE 13,17:PRINT"TOTAL $";ASSET(TR); 

1150 FOR PROP-1 TO 4@:LOCATE 13,56:PRINT PROP;:IF O(PROP)-TR THEN 1155 ELSE 1170 
1155 FOR WIPE-11 TO 13:LOCATE WIPE,36:PRINT STRINGS$(28," ");:NEXT 

1160 LOCATE 11,36:PRINT P$(PROP);:LOCATE 12,36:PRINT"MORT VALUE $";MV(PROP);:IF 

H(PROP)>@ AND H(PROP)<5 THEN PRINT"HOUSES:";H(PROP);ELSE IF H(PROP)-5 THEN PRINT 
"Hotel!" 

1165 AKS-INKEYS:IF AKS=""THEN 1165 

1170 NEXT PROP 

1175 FOR WIPE-11 TO 13:LOCATE WIPE,36:PRINT STRING$(28," ");:NEXT:LOCATE 11,36:P 

RINT"THAT'S ALL!":PLAY"V15L6403E" 

1189 LOCATE 8,17:PRINT STRING$(45," ");:GOTO 720 

1185 GOSUB 6990:PZS-NS(TR)*" 'S ASSETS":IF LEN(NS(TR))»4 THEN OV-179 ELSE 0У-200 

1199 LOCATE 12,29:PRINT PZ$ 

1195 LPRINT:LPRINT STRING$(49,"*"):LPRINT "TANYOPOLY ASSET PRINTOUT FOR ";N$(TR) 
:LPRINT "TOTAL ASSETS:$";ASSET(TR) : LPRINT 

1200 FOR PROP-1 TO 40:ІҒ O(PROP)-TR THEN 1205 ELSE 1230 

1205 LPRINT P$(PROP);:LPRINT TAB(18);" MORTGAGE VALUE: $"MV(PROP) 

1210 IF B(PROP)=TR THEN LPRINT"You Own The Book." 

1215 IF H(PROP)>@ AND H(PROP)<5 THEN LPRINT "HOUSES BUILT: ";H(PROP);ELSE IF H(P 

ROP)=5 THEN PRINT"Hotel!" 

1220 IF O(PROP)-3 OR O(PROP)-4 THEN LPRINT"This Property Mortgaged!" 

1225 LPRINT 

1230 NEXT PROP 

1235 LPRINT STRINGS$(A4Q,"*"):LPRINT:LOCATE 8,17:PRINT STRING$(45," "):GOTO 720 

1249 ' 

1245 '***** MORTGAGE PROPERTY GOES HERE ****%* 

1259 ! 

1255 GOSUB 69%:LOCATE 11,17:PRINT"MORTGAGING PROPERTY";:LOCATE 12,17:COLOR 2:PRI 

NT"MUST MORTAGE HOUSES";:LOCATE 13,17:PRINT"BEFORE THE PROPERTY";:COLOR 1 

1260 PLAY"V15L6404FDC":FOR DL-1 TO 299%:NEXT:LOCATE 12,17:PRINT" THIS ONE - 
--»";::LOCATE 13,17:COLOR 2:PRINT " E Y/N ^]. 9278 COLOR: 1 

1265 FOR UPROP-1 TO 40:ГОСАТЕ 13,56:PRINT UPROP; 

1270 IF (TR-1 AND O(UPROP)-1) OR (TR-2 AND O(UPROP)-2) THEN LOCATE 13,56:PRINT" 
"r. LOCATE 11,42:PRINT PS$(UPROP);:ELSE 1355 

1275 LOCATE 12,42:PRINT"MORTGAGE VALUE $"MV(UPROP); 

1280 LOCATE 13,42:PRINT"HOUSES : ";H(UPROP);" Lo 

1285 AKS=INKEYS : IF AKS=""THEN 1285 ELSE IF AKS="n" OR AK$-"N" THEN 1355 ELSE 129 
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1290 IF АК5-"Ү" OR AKS$-"y"THEN 1295 ELSE 1285 

1295 IF H(UPROP)=9 THEN 1345 

1300 IF (UPROP-1 OR UPROP=3) THEN H(1)-H(1)-1:H(3)-H(3)-1:M(TR)-M(TR)* (2*HC (UPRO 
P))/2:PRP(TR)-PRP(TR) - (2*HC(UPROP) ) : TH(TR)=TH(TR) -2 

1305 IF (UPROP-6 OR UPROP-8 OR UPROP-9) THEN H(6)-H(6)-1:H(8)-H(8)-1:H(9)-H(9)-1 
:M(TR)=M(TR)+(3*HC(UPROP) ) /2: PRP(TR) -PRP(TR) - (2*HC(UPROP) ) : TH(TR)=TH(TR) -3 

1310 IF (UPROP-11 OR UPROP=13 OR UPROP=14) THEN H(11)-H(11)-1:H(13)-H(13) -1:H(14 
)=H(14) -1:M(TR)2M(TR) * (3BXHC (UPROP) )/2: PRP(TR) -PRP(TR) - (2XHC(UPROP)) : TH(TR)-TH(TR 
)-3 

1315 IF (UPROP-16 OR UPROP-18 OR UPROP-19) THEN H(16)-H(16)-1:H(18)-H(18)-1:H(19 
)2-H(19) -1:M(TR)=M(TR)+(3*HC(UPROP) )/2: PRP(TR)=PRP (TR) - (2XHC(UPROP)) : TH(TR)-TH(TR 
)-3 

1320 IF (UPROP-21 OR UPROP-23 OR UPROP-24) THEN H(21)=H(21) -1:H(23)=H(23) -1:H(24 
)=Н(24) - 1: M(TR) -M(TR) - (BXHC(UPROP) )/2: PRP(TR) -PRP(TR) - (2XHC(UPROP) ) : TH(TR) -TH(TR 
)-3 

1325 IF (UPROP-26 OR UPROP-27 OR UPROP-29) THEN H(26)-H(26)-1:H(27)-H(27)-1:H(29 
)=H(29) -1:M(TR)=M(TR)+(3*HC(UPROP) ) /2: PRP(TR)-PRP(TR) - (2*HC(UPROP) ) : TH(TR) -TH(TR 
)-3 

1330 IF (UPROP-31 OR UPROP=32 OR UPROP=33) THEN H(31)-H(31)-1:H(32)-H(32)-1:H(33 
)2H(33) - 1: M(TR)2M(TR) * (3XHC (UPROP) )/2: PRP(TR) -PRP(TR) - (2XHC(UPROP)) : TH(TR)-TH(TR 
)-3 

1335 IF (UPROP-37 OR UPROP-39) THEN H(37)-H(37)-1:H(39)-H(39) -1:M(TR)-M(TR) - (2*H 
C(UPROP) ) /2: PRP(TR) -PRP(TR) - (2XHC(UPROP)) : TH(TR) -TH(TR) -2 

1340 LOCATE 7,23:PRINT M(1);:LOCATE 7,53:PRINT M(2);:GOTO 1360 

1345 M(TR)-M(TR)-MV(UPROP):PRP(TR)-PRP(TR)-MV(UPROP):IF TR-1 THEN O(UPROP)-3 ELS 
E IF TR=2 THEN O(UPROP)=4 

1350 LOCATE 7,23:PRINT M(1);:LOCATE 7,53:PRINT M(2);:GOTO 1360 

1355 FOR WIPE-11 TO 13:LOCATE WIPE,42:PRINT STRINGS(22," "):NEXT:NEXT 

1360 GOTO 720 

1365 * 


1370 '***%** UNMORTGAGE PROPERTY GOES НЕКЕ ***** 
1575 ' 


1380 GOSUB 69%:LOCATE 11,17:PRINT"UNMORTGAGE PROPERTY:";:LOCATE 12,27:COLOR 2:PR 


INT"THIS ONE->";:LOCATE 13,28:PRINT"[ Y/N ]";:COLOR 1 

1385 FOR PROP-1 TO 4Q9:LOCATE 13,56:PRINT PROP; 

1390 IF (TR-1 AND O(PROP)-3) OR (TR-2 AND O(PROP)-4) THEN LOCATE 12,42:PRINT Р5( 
PROP);:ELSE 1435 

1395 LOCATE 13,42:PRINT"COST: $";UN(PROP);" н% 
149% AKS-INKEYS:IF AK$-""THEN 1400 

1405 IF АК$="М"ОВ AK$-"n" THEN 1435 

1410 IF AK$-"y" OR AKS="Y" THEN 1415 ELSE 1405 

1415 M(TR)=M(TR) -UN(PROP) :Ο(ΡΕΟΡ)-Ο(ΡΕΟΡ) -2: PRP(TR)-PRP(TR)--MV (PROP) 

1420 LOCATE 7,23:PRINT M(1);:LOCATE 7,53:PRINT M(2); 

1425 FOR WIPE-12 TO 13:LOCATE МІРЕ,40:РВІМТ STRING$(24," ");:NEXT 

1430 PLAY"V12L6405CO2C":GOTO 720 

1435 FOR МІРЕ-12 TO 13:LOCATE WIPE,4Q:PRINT STRING$(24," ");:NEXT:NEXT 

| 1440 LOCATE 12,40:PRINT"THAT'S EVERYTHING!";:PLAY"V15L6402CO5C" 

1445 GOTO 720 

1450 ' 

L21655. *' 

1460 "хххх% RENT DUE!! жы 

1465 ' 

1470 IF TR=2 THEN 1500 ELSE GOSUB 690:LOCATE 11,17:COLOR 2,0:PRINT"RENT DUE 
COLOR 1:PRINT" on ";P$(L1); 

1475 IF TR-1 THEN IF H(L1)=% THEN RD=R%(L1) ELSE IF H(L1)-1 THEN RD=R1(L1) ELSE 
IF Н(11)=2 THEN RD-R2(L1) ELSE IF H(L1)-3 THEN RD-R3(L1) ELSE IF H(L1)=4 THEN RD 
=R4(L1) ELSE IF H(L1)-5 THEN RD=R5(L1) 

1489 IF B(L1)-2 AND Н(11)=9 THEN RD-RD*2 

1485 LOCATE 12,17:COLOR 1:PRINT"PAY $";RD:IF B(L1)-2 THEN LOCATE 12,27: PRINE™ [BO 
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ок|"; 

1490 IF M(TR)+PRP(TR)<RD THEN FOR DL-1 TO 99%:NEXT:GOTO 2330 

1495 M(1)=M(1)-RD:LOCATE 7,23:PRINT" ".:ҒОВ RT-1 TO 4:COLOR 1:LOCATE 7,23:PR 

INT M(1);:PLAY"V15L6402D":COLOR 2:NEXT:COLOR 1:LOCATE 7,23:PRINT M(1);:FOR DL-1 

TO 99Q0:NEXT:M(2)-M(2)-*RD:LOCATE 7,53:PRINT" "::LOCATE 7,53:PRINT M(2);:RETUR 

N 

1500 GOSUB 699:LOCATE 11,17:COLOR 2,0:РВІМТ"ВЕМТ DUE :";:COLOR 1:PRINT" on ";P$ 
(12); 

1505 IF TR-2 THEN IF Н(12)=@ THEN RD-R9(L2) ELSE IF H(L2)-1 THEN RD=R1(L2) ELSE 
IF H(L2)-2 THEN RD-R2(L2) ELSE IF H(L2)-3 THEN RD-R3(L2) ELSE IF H(L2)-4 THEN RD 

-RA(L2) ELSE IF H(L2)-5 THEN RD-R5(L2) 

1510 IF B(L2)-1 AND H(L2)-0 THEN RD-RD*2 

1515 LOCATE 12,17:COLOR 1:PRINT"PAY $";RD:IF B(L2)-1 THEN LOCATE 12,27:PRINT"[BO 

OK] " 5 

1520 IF M(2)+PRP(2)<RD THEN FOR DL-1 ТО 900:МЕХТ:СОТО 2355 

1525 M(2)-M(2)-RD:LOCATE 7,53:PRINT" ";:FOR RT-1 TO 4:COLOR 1:LOCATE 7,53:PR 
INT M(2);:PLAY"V15L6402D":COLOR 2:NEXT:COLOR 1:LOCATE 7,53:PRINT M(2);:FOR DL=1 
TO 990g:NEXT:M(1)-M(1)-RD:LOCATE 7,23:PRINT" ";:LOCATE 7,23:PRINT M(1);:RETUR 
N 

1539 ' 

1535 'х**** COUNTY CHEST RESPONSE ***** 

1540 ' 

1545 FOR DL-1 TO 99Q:NEXT:PLAY"OAD":GOSUB 699:LOCATE 11,26:COLOR 2:PRINT"C OU N 
TT COHERST ПИШЕТ 

1550 FOR WIPE-18 TO 19:LOCATE WIPE,52:PRINT STRING$(12," ");:NEXT 

1555 CC=INT(RND(1)*12)+1 

1560 ON CC GOTO 1565,1570,1575,1610,1615,1620,1625,1630,1635,1640,1645,1650 

1565 IF TR-1 THEN M(2)-M(2)-59:M(1)-M(1)459:GOTO 1655:ELSE IF TR-2 THEN M(1)-M(1 
)-59:M(2)-M(2)459:GOTO 1655 

1570 M(TR)=M(TR)+45:GOTO 1655 

1575 IF (ТЕ-1 AND 1,2-40) ОВ (TR-2 AND 11-40) THEN 1555 ELSE IF TR-2 THEN 1595 EL 
SE 1580 

1580 PUT(01(L1) ,D1(L1)) ,U, PSET:L1=49:GET(01(L1) ,D1(L1) ) - (01(L1)+15 ,D1(L1)+8) ,U 
1585 LINE(Ol(L1),D1(L1))-(O1(L1)415,D1(L1)48),2,BF 

1599 LINE(Ol(L1)-1,D1(L1)41)-(O1(L1)4-14,D1(L1)47),1,B:GOTO 1655 

1595 PUT(O1(L2) ,D1(L2)) ,W, PSET: L2=49:GET(01(L2) , D1(L2) ) - (01(L2)+15 ,D1(L2)+8) ,W 

1609 LINE(O1(L2) ,D1(L2) )- (01(L2)+15,D1(L2)+8) ,3,BF 

1605 LINE(01(L2)+1,D1(L2)+1) - (01(L2)+14,D1(L2)+7),1,B:GOTO 1655 

1610 M(TR)=M(TR)+299:GOTO 1655 

1615 M(TR)=M(TR)+25:GOTO 1655 

1620 IF (ТЕ-1 AND L2=1@) OR (TR=2 AND 11-10) THEN 1555 ELSE FF=2:GOTO 1655 

1625 М(ТЕ)-М(ТЕ)-100:ЕМ-ЕМ-100:С0Т0О 1655 

1630 M(TR)=M(TR)+2@:GOTO 1655 

1635 M(TR)=M(TR) -159:FM=FM+199:GOTO 1655 

1640 M(TR)=M(TR)+199:GOTO 1655 

1645 М(ТЕ)-М(ТЕ)-50:С0Т0 1655 

1650 M(TR)=M(TR)+12:GOTO 1655 

1655 LOCATE 18,52:PRINT C4$(CC):LOCATE 19,52:PRINT C5$(CC):PLAY"V15L6405CO3CO1C" 
:LOCATE 7,23:PRINT M(1);"  ":LOCATE 7,53:PRINT M(2);"  ";:FOR DL-1 TO 2800:МЕХ 

T:IF FF-2 THEN 2210 

1660 FOR WIPE-18 TO 19:LOCATE WIPE,52:PRINT STRING$(12," ");:NEXT:LOCATE 18,52:P 

RINT"CHES T ":ЕЕ-й 

1665 GOTO 599 

1670 ' 

1675 '***** CHANCE RESPONSE ***** 

1680 ' 

1685 FOR DL-1 ТО 99g:NEXT:PLAY"V10L64T25503CO4CO5C":GOSUB 690:LOCATE 11,34:COLOR 
1:PRINT"C HA N C E !" 

1690 FOR WIPE-18 TO 19:LOCATE WIPE,17:PRINT STRING$(13," ");:NEXT 
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1695 CC-INT(RND(1)*12)«1 

1700 ON CC GOTO 1705,1710,1715,1720,1790,1795,1830,1865,1900,1905,1940,1945 

1705 M(TR)-M(TR) -25:GOTO 1950 

1719 FINE-25*TH(TR):IF FINE=>(M(TR)+PRP(TR)) THEN 2330 ELSE M(TR)-M(TR) -FINE:FM- 

FM+FINE:GOTO 1950 

1715 JF(TR)-1:GOTO 1950 

1720 IF TR-2 THEN 1755 ELSE IF (11<5 AND L2=5) OR (L1>4 AND 11<15 AND L2=15) OR 

(11>14 AND L1«25 AND L2=25) OR (L1>25 AND L2=35) THEN 1695 

1725 PUT(O1(L1) ,D1(L1)) ,U, PSET 

1739 IF 11<5 THEN 11=5 ELSE IF (L1>4 AND L1<15) THEN 11-15 ELSE IF (11514 AND L1 

<25) THEN 11-25 ELSE IF (11>24 AND L1<35) THEN 11-35 ELSE IF (11>35 AND L1«49) T 

HEN L1=5 

1735 GET(O1(L1) ,D1(L1) ) - (01(L1)+15 ,D1(L1)+8) ,U 

1749 LINE(01(L1) ,D1(L1))-(01(L1)+15 ,D1(L1)+8) ,2,BF 

1745 LINE(01(L1)+1,D1(L1)+1) - (01(L1)4+14 ,D1(L1)+7) ,1,B 

1750 GOTO 1950 

1755 IF (L2«5 AND 11-5) OR (L2>4 AND L2«15 AND 11-15) OR (12514 AND L2<25 AND 11 

-25) OR (12>25 AND L1-35) THEN 1695 

1760 PUT(Ol1(L2),D1(L2)),W,PSET 

1765 IF L2«5 THEN 12-5 ELSE IF (L2>4 AND L2«15) THEN L2-15 ELSE IF (L2>14 AND L2 

<25) THEN 12-25 ELSE IF (L2>24 AND L2«35) THEN 12-35 ELSE IF (L2>35 AND 12<40) T 
HEN 1,2-5 

| 1770 GET(01(L2) ,D1(L2)) -(01(L2) 415, D1(L2)48) ,W 

1775 LINE(01(L2),D1(L2))-(01(L2)-15,D1(L2)48) ,3, BF 

1789 LINE(01(L2)41,D1(L2)41)-(01(L2)414,D1(L2)47),1,B 

1785 GOTO 1950 

1799 IF TR-1 THEN М(1)-М(1)-50:М(2)-М(2)--50:СОТО 1959:ELSE М(2)-М(2)-50: (1)-M(1 

)%50:С0Т0 1950 

1795 IF (TR-1 AND 12-11) OR (TR-2 AND 11-11) THEN 1695 ELSE IF TR=2 THEN 1815 EL 

SE 1800 

1800 PUT(O1(L1) ,D1(L1)) ,U, PSET:L1=11:GET(01(L1) ,D1(L1)) - (01(L1)+15 ,D1(L1)+8) ,U 

1805 LINE(Ol(L1),D1(L1))-(Ol1(L1)415,D1(L1)48),2,BF 

1810 LINE(01(L1)+1,D1(L1)+1) - (01(L1)4+14,D1(L1)+7) ,1,B:GOTO 1950 

1815 PUT(O1(L2) ,D1(L2)) ,W, PSET:L2=11:GET(01(L2) ,D1(L2)) - (01(L2)+15 ,D1(L2)+8) ,W 

1820 LINE(01(L2) ,D1(L2)) - (01(L2)+15,D1(L2)+8) ,3,BF 

1825 LINE(01(L2)+1,D1(L2)+1) - (01(L2)+14,D1(L2)+7),1,B:GOTO 1950 

1830 IF (ТЕ-1 AND 12-40) OR (TR-2 AND 11-40) THEN 1695 ELSE IF TR-2 THEN 1850 EL 

SE 1835 

1835 PUT(O1(L1) ,D1(L1)) ,U, PSET:L1=49%:GET(01(L1) ,D1(L1) ) - (01(11)+15,р1(11)+8),0 

1840 LINE(01(L1) ,D1(L1))-(01(L1)+15 ,D1(L1)+8) ,2,BF 

1845 LINE(01(L1)+1,D1(L1)+1) - (01(L1)+14,D1(L1)+7),1,B:GOTO 1950 

1859 PUT(O1(L2) ,D1(L2)) ,W, PSET:L2=49:GET(01(L2) ,D1(L2)) - (01(L2)+15 ,D1(L2)+8) ,W 

1855 LINE(O1(L2) ,D1(L2))-(01(L2)+15,D1(L2)+8) ,3,BF 

1869 LINE(01(L2)+1,D1(L2)+1) - (01(L2)+14,D1(L2)+7) ,1,B:GOTO 1950 

1865 IF (TR-1 AND L2=24) OR (TR=2 AND 11-24) THEN 1695 ELSE IF TR-2 THEN 1885 EL 

SE 1879 

1870 PUT(O1(L1) ,D1(L1)) ,U, PSET:L1=24: GET(01(L1) ,D1(L1) ) - (01(L1)+415 ,D1(L1)+8) ,U 

1875 LINE(O1(L1) ,D1(L1))-(01(L1)+15 ,D1(L1)+8) ,2,BF 

1880 LINE(O1(L1)+1,D1(L1)+1) - (01(L1)+14,D1(L1)+7) ,1,B:GOTO 1950 

1885 PUT(O1(L2) ,D1(L2)) ,W, PSET:L2=24:GET(01(L2) , D1(L2)) - (01(L2)+15 ,D1(L2)+8) ,W 

1890 ІЛМЕ(01(1.2),01(12))-(01(12)%15,01(12)48),3,ВЕ 

1895 ІЛМЕ(01(1.2)%1,01(1.22)%1)-(01(12)%14,01(1.2)%7),1,В:С0Т0 1950 

1900 FF-1:GOTO 1950 

1905 IF (ТЕ-1 AND 1,2-39) OR (TR-2 AND 11-39) THEN 1695 ELSE IF TR-2 THEN 1925 EL 

SE 1919 

1910 PUT(Ol(L1),D1(L1)),U,PSET:L1-39:GET(Ol(L1),D1(L1))-(Ol(L1)415,D1(L1)48),U 

1915 ІЛМЕ(01(11),01(11))-(01(11)%15,01(11)48),2,ВЕ 

1920 LINE(01(L1)41,D1(L1)+1) -(01(L1)+14,D1(L1)+7),1,B:GOTO 1950 

1925 PUT(01(L2),D1(L2)),W,PSET:L2-39:GET(01(L2),D1(L2))-(01(L2)415,D1(L2)48) ,W 
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1930 LINE(O1(L2),D1(L2))-(01(L2)415,D1(L2)48) , 3, BT 
1935 LINE(O1(L2)+1,D1(L2)+1) - (01(L2)+14,D1(L2)+7),1,B:GOTO 1950 

1940 M(TR)=M(TR)+59:GOTO 1950 

1945 М(ТВ)=М(ТВ) -15:ЕМ-ЕМ+15 

1950 LOCATE 18,18:PRINT C1$(CC):LOCATE 19,18:PRINT C2$(CC):PLAY"V12L6403C" : LOCAT 
E 7,23:PRINT M(1);" ";:LOCATE 7,53:PRINT M(2);" "::FOR DL=1 TO 2800:МЕХТ 
:IF FF-1 THEN 2210 

1955 FOR WIPE-18 TO 19:LOCATE WIPE,17:PRINT STRING$(13," ");:NEXT:LOCATE 18,17:P 
RINT "C H A N C E" 

1960 сото 500 

1965 ' 

1979 "ΑΝ TRADE PROPERTY ж» 

1975 ' 

1980 GOSUB 699:LOCATE 11,17:COLOR 1:PRINT"TRADING ROUTINE: ONLY PROPERTY MAY BE 
TRADED!";:LOCATE 12,17:COLOR 1:PRINT N$(1);:LOCATE 12,24:PRINT": THIS ONE (Y/N)? 


1985 FOR TT-1 ТО 40:ІЕ O(TT)-1 AND Н(ТТ)-й THEN LOCATE 12,43:PRINT PS(TT);:ELSE 
2000 
1990 AKS-INKEYS:IF AK$-""THEN 1999 
1995 IF АК%-"Ү"ОВ AK$-"y" THEN 2010 ELSE 2000 
2000 LOCATE 12,43:PRINT STRING$(29," ");:NEXT 
2005 LOCATE 12,43:PRINT"NOTHING TO TRADE!":FOR DL-1 TO 1299:NEXT:GOTO 720 
2010 LOCATE 13,17:PRINT N$(2);:LOCATE 13,24:PRINT": THIS ONE (Y/N)?"; 
2015 FOR TU-1 TO 40:ІҒ O(TU)-2 AND H(TU)-9 THEN LOCATE 13,43:PRINT P$(TU);:ELSE 
2035 
2020 AKS-INKEYS$:IF AK$-""THEN 2020 
2025 IF AK$-"Y" OR AK$-"y" THEN 2045 ELSE 2035 
2030 GOTO 2035 
2035 LOCATE 13,43:PRINT 5ТКІКМС5(20," ");:NEXT 
2040 LOCATE 13,43:PRINT"NOTHING TO TRADE!":FOR DL-1 TO 12%@:NEXT:GOTO 720 
2045 GOTO 2075 
2050 O(TT)-2:0(TU)-1:PRP(1)-PRP(1) -MV(TT) : PRP(1)-PRP(1)4MV(TU) : PRP(2) -PRP(2) -MV( 
TU) : PRP(2) -PRP(2) *MV(TT) 
2055 GOSUB 69%:LOCATE 11,17:COLOR 1:PRINT"THE FOLLOWING TRADE IS RECORDED:"; 
2969 LOCATE 12,17:PRINT N$(1);" Trades ";Р9(ТТ);" To" 
2065 LOCATE 13,17:PRINT N$(2);" For ";P$(TU); 
2070 FOR DL-1 TO 1200:МЕХТ:СОТО 720 
2075 GOSUB 69%:LOCATE 11,17:PRINT"Closing the deal-";:LOCATE 12,17:PRINT"Trade " 
Ρο λε Төс ";PSCTUDS 
2080 LOCATE 13,17:PRINT N$(1);" Input Your Approval (Y/N) ?";:INPUT APS$:IF APS=" 
y" OR AP$-"Y" THEN 2085 ELSE 720 
2085 LOCATE 13,17:PRINT STRINGS$(32," ");:LOCATE 13,17:PRINT N$(2);" Input Your A 
pproval (Y/N) ?";:INPUT AQ$:IF AQ$-"y" OR АР%-"Ү" THEN 2090 ELSE 720 
2090 GOSUB 860 
2095 FOR DL-1 TO 800:МЕХТ:СОТО 2050 
2199 ' 
2105 'ххжхх INCOME TAX ххх 
211g ' 
";:COLOR 2:PRINT"No 
Pay Up!";:COLOR 1 
2120 LOCATE 13,17:PRINT"Taxes Due...$20Q0"; 
2125 FOR DUM-1 TO 2:PLAY"T120V1501LACP8L8DL6E-LACP4" : NEXT: PLAY" L3F+" 
2130 IF TR-1 THEN М(1)-М(1)-200 ELSE IF TR=2 THEN М(2)-М(2)-200 
2135 LOCATE 7,23:PRINT M(1):LOCATE 7,53:PRINT M(2) 
2149 FOR DL-1 TO 99g:NEXT 
2145 RETURN 
2159 ' 
2155 '***** LUXURY TAX *хххх 
2169 ' 
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";:ШОСАТЕ 12,17:COLO 
Рау Up!"; 
2170 LOCATE 13,17:PRINT"The TAX is $75.99"; 
2175 IF TR-1 THEN M(1)-M(1)-75 ELSE IF TR-2 THEN М(2)-М(2)-75 
2180 LOCATE 7,23:PRINT M(1):LOCATE 7,53:PRINT M(2) 
2185 FOR DL-1 TO 900:МЕХТ 
RETURN 


"ххх IN THE JAILHOUSE *** 


LOCATE 13,17:PRINT"YOU MOVE TO ";P$(10);STRING$(8," ");:FOR DL-1 TO 1000:МЕ 


FOR SIREN-1 TO 2:FOR SN-799 TO 1000 STEP 5:SOUND SN,.8:NEXT 
IF SIREN -2 THEN FOR SN-990 TO 400 STEP -16:SOUND 5М,.4:МЕХТ 
IF SIREN -1 THEN FOR SN-990 TO 700 STEP -16:SOUND SN,.8:NEXT 
NEXT 
IF TR-1 THEN PUT(Ol(Ll1),D1(L1)),U,PSET:L1-19:GET(01(10) ,D1(10) ) -(01(19)415, 
D1(19)48) ,U: LINE(01(19) ,D1(19)) -(01(19) 4-15, D1(19)48) ,2, BF 
2240 ТЕ ТВ-1 THEN LINE(01(L1)+1,D1(L1)+1) -(01(L1)+14,D1(L1)+7) ,1,B 
2245 IF TR-2 THEN PUT(01(L2),D1(L2)),W,PSET:L2-19:GET(01(19) ,D1(1@) ) -(01(19) 415, 
D1(19)48) ,W: LINE(01(19) ,D1(19)) -(01(19)415,D1(19)4-8) , 3, BF 
2250 IF TR-2 THEN LINE(O1(L2)41,D1(L2)41)-(01(L2)414,D1(L2)47),1,B 
2255 IF JF(TR)-U THEN LOCATE 21,34:PRINT"PAY $59 BOND";:M(TR)-M(TR)-59 
2260 IF JF(TR)-1 THEN LOCATE 21,34:PRINT"GET OUT FREE"; :JF(TR)-9 
2265 FOR DL-1 TO 1299:NEXT:PLAY"V1503F":LOCATE 21,33:PRINT STRINGS(14," "); 
2270 IF FF=2 THEN GOTO 1660 
2275 IF FF-1 THEN 1955 
2289 GOTO 720 
2285 ' 
2290 "жк FREE PARKING HERE w**** 
2295 ' 
2300 LOCATE 21,33:PRINT"YOU WIN $";FM:M(TR)=M(TR)+FM: FM=199:LOCATE 7,23:PRINT M( 
1):LOCATE 7,53:PRINT M(2); 
2305 FOR TOOT-1 TO 2:FOR SN-1 TO 35:SOUND 399,.3:NEXT:FOR DL-1 TO 50:МЕХТ:МЕХТ 
2310 FOR DL-1 TO 80g:NEXT:LOCATE 21,33:PRINT STRINGS(14," ");:GOTO 729 
2315 ' 
2320 '***BANKRUPT PLAYER*** 
2325 ' 
2330 GOSUB 699:LOCATE 11,17:COLOR 1:PRINT"BANKRUPCY COURT:";:LOCATE 12,17:COLOR 
1:PRINT "YOUR CASH & PROPERTY VALUES ARE INSUFFICIENT!";:LOCATE 13,17:PRINT"IN O 
THER WORDS, "N$(TR)" YOU'RE BANKRUPT !":FOR DL-1 TO 2500:МЕХТ DL 
2335 PLAY"V15L6403CEGO4CO3GEC": EG$="WINNER: " 
2340 IF ТВ-1 THEN NM$=N$(TR+1) ELSE NM$-N$(1) 
2345 GOSUB 699:EG$-EGS-NM$:LOCATE 12,20:РВІМТ EG$ 
2350 GOTO 2350 
2355 ' 
2360 ' 
2365 'RAILROAD FEES GO HERE 
2379 ' 
2375 FOR TRAIN-1 ТО 2:SOUND 399,.4:SOUND 500,.4 
2380 IF TRAIN-1 THEN FOR SN-1 TO 89:SOUND 600, .1:ΝΕΧΤ 
2385 IF TRAIN-2 THEN FOR SN=1 TO 159:SOUND 600,.1:МЕХТ 
2399 NEXT TRAIN 
2395 IF TR-1 THEN IF RROWN(2)-1 THEN RRIDE-25 ELSE IF RROWN(2)-2 THEN RRIDE-50 E 
LSE IF RROWN(2)-3 THEN RRIDE-10 ELSE IF RROWN(2)=4 THEN RRIDE-200 
2400 IF TR-2 THEN IF RROWN(1)-1 THEN RRIDE-25 ELSE IF RROWN(1)-2 THEN RRIDE-59 E 
LSE IF RROWN(1)=3 THEN RRIDE=199 ELSE IF RROWN(1)=4 THEN RRIDE=299 
2495 GOSUB 690 
2410 IF TR-1 THEN LOCATE 11,17:PRINT N$(2);" OWNS ";P$(L1);:LOCATE 12,17:PRINT"N 











Wondering where to grow? 


Why not get IBM compatibility with 
Tandy's 1200, or the new 3000, and 
take your OS-9 programs with you? 


TLM's PC68K puts the 68000/68010 
processor and Microware's OS-9 
together in any IBM, or compatible, 
PC/XT/ AT system, providing the 
best of both worlds with fully 
concurrent PC / 68000 operation. 


e Powerful languages such as 
BASICO9, PASCAL and C 

e DYNACALC for spread sheet 
processing 

e The power of the 68000/68010 
e The price/performance and 
flexibility of the Tandy 1200 
and 3000 

TLM's PC68K. . . A great family 
im grow up with! 


bed πμ ampi 

registered асетат of Computer Systems Can 

prine seal re Systems Corp 
га! 


OTNACALO 


CPM MK is 
MK68000 M 





CLOCK SPEED 
8/10/12.5 MHZ 
Without wait states 


HARDWARE 

2 Parallel Ports 

3-9 Serial Ports 

68881 Floating point co-processor 
(optional) 

Memory mapped dual port bus for 
high speed DMA transfers 

Real time clock with battery 
backup 

Up to 16 boards can run con- 
currently from one AT/XT/PC bus 


MEMORY 

1-2 MB OF RAM 

(1 MB on board standard) 
8K-32K of ROM 

2K-8K of battery backed RAM 


MULTI-USER 

3-9 users (3 standard) 

High speed "Tick" timer with 10ms 
accuracy for efficient multi-user 
time slicing. 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711 209/276-2345 


OPERATING SYSTEMS 

OS-9 (Multi-user UNIX look-alike) 

C/PM-68K (popular single user OS) 

Both support concurrent access 
to PC DOS 


SOFTWARE 

Software selectable OS 
environment 

IBM Color/Mono Graphics Support 

Local and Global disk caching for 
maximum speed and efficient 
data transfer 

COMMUNICATIONS 

Powerful asynchronous/ 
synchronous data 
communications capability 

Bisynchronous SNA 3270, X.25, etc. 

MISCELLANEOUS FEATURES 

Remote and Local reset (hardware 
or software selectable) 

Remote and Local Non-maskable 
Interrupts (NMI) 

Stand alone hardware capability 
(without AT/XT/PC support) 


І East: 67 Grandview Avenue, Pleasantville, NY 10570 914/747-1450 


UMBER ОҒ RAILROADS OWNED BY ";N$(2);" IS ";RROWN(2);:LOCATE 13,17:PRINT"YOU MUST 
PAY A FEE OF $";RRIDE:M(1)=M(1) -RRIDE:M(2)=M(2)+RRIDE 

2415 IF TR-2 THEN LOCATE 11,17:PRINT N$(1);" OWNS ";P$(L2);:LOCATE 12,17:PRINT"N 

UMBER OF RAILROADS OWNED BY ";N$(1);" IS ";RROWN(1);:LOCATE 13,17:PRINT"YOU MUST 
PAY A FEE OF $";RRIDE:M(2)-M(2) -RRIDE:M(1)=M(1)+RRIDE 

2420 FOR RT-1 TO 4:COLOR 2:LOCATE 7,23:PRINT M(1);:PLAY"V15L6402D":COLOR 1:LOCAT 
E 7,23:PRINT M(1);:NEXT:LOCATE 7,53:PRINT M(2);:FOR DL-1 TO 99Q:NEXT:RETURN 

2425 LOCATE 11,17:PRINT N$(1);" OWNS ";P$(L2);:LOCATE 12,17:PRINT"NUMBER OF RAIL 

ROADS OWNED BY ";N$(1);" IS ";RROWN(1);:LOCATE 13,17:PRINT"YOU MUST PAY A FEE OF 
$";RRIDE:M(2)=M(2) -RRIDE:M(1)=M(1)+RRIDE 

2430 FOR ЕТ-1 TO 4:COLOR 2:LOCATE 7,53:PRINT M(2);:PLAY"V15L6402D":COLOR 1:LOCAT 
E 7,53:PRINT M(2);:NEXT:LOCATE 7,23:PRINT M(1);:FOR DL-1 TO 900:КЕХТ:ҺЕТТЕМ 

2435 ! 

2449 ' 

2445 '***UTILITY PAYMENT DUE 

2450 ' 

2455 GOSUB 69%:LOCATE 11,17 

2460 IF TR-1 THEN PRINT P$(L1);:ELSE PRINT P$(L2); 

2465 COLOR 2:PRINT"... Your BILL is DUE!";:COLOR 1 

2470 UBILL=4* (INT(RND(1)*12)+1) 

2475 IF TR=1 AND 0(12)=2 AND 0(28)=2 THEN UBILL=5*UBILL 

2489 IF TR=2 AND O(12)-1 AND 0(28)-1 THEN UBILL-5*UBILL 

2485 IF ΤΕΞΙ THEN M(1)=M(1)-UBILL:M(2)=M(2)+UBILL 

2490 IF TR-2 THEN М(2)=М(2) -UBILL:M(1)=M(1)+UBILL 

2495 LOCATE 12,17:PRINT"The Outrageous Charge IS $";UBILL; 

2500 PLAY"V15L6401F":LOCATE 7,23:PRINT M(1);:PLAY"VI15L6401F":LOCATE 7,53:PRINT M 
(2); 

2505 FOR DL-1 TO 99%:NEXT:RETURN 

2519 ' 

2515 ΧΧΧ PASS GO www 

2529 ' 

2525 LOCATE 21,32:COLOR 3:PRINT"PASS GO! Get $290"; :COLOR 1 

2530 IF TR-1 THEN М(1)-М(1)4%200 ELSE M(2)=M(2)+299 

2535 IF TR-1 THEN LOCATE 7,23:PRINT M(1);:ELSE LOCATE 7,53:PRINT M(2); 

2540 PLAY"V15L6405CO4CO3C":FOR DL-1 TO 8%%:NEXT:LOCATE 21,32:PRINT" 

".:COLOR 1 

2545 RETURN 

2559 

2555 '*** PASS OUT ALL PROPERTY ххх 

2560 ' 

2565 GOSUB 699:LOCATE 11,17:COLOR 2:PRINT"SELECTING PROPERTIES";:COLOR 1:LOCATE 

12,28,0:PRINT N$(1);:LOCATE 13,28,%:PRINT N$(2); 

2570 FOR PX-1 TO 14 

2575 XX=INT(RND(1)*39)+1:IF O(XX)-9 THEN O(XX)-1:LOCATE 12,36,9:PRINT P$(XX);:EL 
SE 2575 

2580 PLAY"O3T64L64F" 

2585 XY=INT(RND(1)*39)+1:IF O(XY)=@ THEN O(XY)-2:LOCATE 13,36,9:PRINT P$(XY);:EL 
SE 2585 

2590 PLAY"O5T64L64F" 

2595 LOCATE 12,36:PRINT STRING$(25," ");:LOCATE 13,36:PRINT STRING$(25," "); 
2600 NEXT PX 

2605 FOR X=1 TO 40:ІҒ O(X)-1 THEN 2610 ELSE 2615 

2610 PRP(1)=PRP(1)+MV(X):IF (Х-5 OR X-15 OR X=25 OR X=35) THEN RROWN(1)=RROWN(1) 
+1 

2615 NEXT 

2620 FOR X=1 TO 40:ІҒ O(X)=2 THEN 2625 ELSE 2639 

2625 PRP(2)-PRP(2)4MV(X):IF (Х-5 OR X=15 OR X=25 OR X=35) THEN RROWN(2)=RROWN (2) 
+1 

2630 NEXT 
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2635 
2640 
2645 
2650 
2655 
2660 
2665 
2670 
2675 
2689 
2685 
2699 


TR-1:GOSUB 860 
TR-2:GOSUB 869 
GOTO 385 


*** MOVING THE PLAYING PIECES *** 

IF І1<> L2 THEN PUT(Ol(L1),D1(L1)),U:ELSE FL=9% 

PUT(Ol(L1),D1(L1)),U,PSET 

FOR X-1 TO (RL1+RL2) 

11=11+1:1Е L1» 40 THEN GOSUB 2525 

IF 11>=41 THEN L1=L1-49 

ΤΕ L1-L2 THEN FOR DL-1 ТО 109:NEXT:PLAY"V10L6402CO5C":FOR DL-1 TO 75:NEXT:G 


OTO 2720 


2695 
2799 
2705 
2710 
2715 
2720 
2725 
2730 
2735 
2740 
2745 
2750 
2755 
2760 
2765 


СЕТ(01(11),01(11))-(01(141)-15,01(110-8),0 

LINE(01(L1) ,D1(L1) ) - (01(L1)+15,D1(L1)+8) ,2, BF 
LINE(01(L1)+1,D1(L1)+1) - (01(L1)+14 ,D1(L1)+7) ,1,B 
PLAY"V12T64L6402CO5C":FOR DL-1 TO 75:NEXT 

PUT(O1(L1) ,D1(L1)) ,U, PSET 

NEXT X 

ΤΕ 11<>12 THEN ΙΙΝΕ(ΟΙ (11) ,D1(L1))-(01(L1)+15 ,D1(L1)+8) ,2,BF 

IF 11<>12 THEN LINE(01(L1)+1,D1(L1)+1) - (01(11)+14,р1(11)+7),1,В 
RETURN 

IF 12<>11 THEN PUT(O1(L2),D1(L2)),W:ELSE FK-Q 

PUT(01(L2) ,D1(L2)) ,W, PSET 

FOR X-1 TO (RL1+RL2) 

L2-L241:1F 12» 40 THEN GOSUB 2525 

IF L2>=41 THEN 1,2-1,2-40 

IF L2-L1 THEN FOR DL-1 TO 109:NEXT:PLAY"V10L6402CO5C":FOR DL-1 TO 75:NEXT:G 


OTO 2795 
2779 


b 2775 


2789 
2785 
2799 
2795 
2800 
2805 
2810 
2815 
2820 
2825 
2839 


GET(01(L2) ,D1(L2) ) - (01(L2)+15 ,D1(L2)+8) ,W 

LINE(01(L2) ,D1(L2)) - (01(L2)+15,D1(L2)+8) , 3, BF 
LINE(01(L2)+1,D1(L2)+1) - (01(L2)+14,D1(L2)+7) ,1,B 
PLAY"V12T64L6402CO5C":FOR DL-1 TO 75:NEXT 
PUT(01(L2),D1(L2)),W,PSET 

NEXT X 

ΤΕ L2<>L1 THEN LINE(01(L2) ,D1(L2))-(01(L2)+15,D1(L2)+8) ,3,BF 

ΤΕ 12<>11 THEN LINE(01(L2)+1,D1(L2)+1) -(01(L2)+14,D1(L2)+7) ,1,B 
RETURN 


' 


"ххх ROLLED A DOUBLE *** 


LOCATE 17,33:PRINT" DOUBLE ROLLED! ";:FOR DL-1 TO 15@@:NEXT:PLAY"V15L6403D" 


:LOCATE 17,33:PRINT STRINGS$(16," "); 


2835 
2840 
2845 
2850 
2855 
2860 
2865 
2870 
2875 
2880 
2885 
2890 


IF ТЕ-1 THEN TR=TR+1 ELSE TR-1 
DB=% : RETURN 


“жж SUMMARY WINDOW see 
СЕТ(50,35)-(200,150),У 

ІЛМЕ(50,35)-(200,150),0,ВҒ 

LINE(51,36)-(199,149),3,B 

LOCATE 6,8:COLOR 2:PRINT"REAL ESTATE:"; 

EN-9:XX-8:COLOR 1 

FOR PROP-1 TO 4Q:LOCATE XX,8:PLAY"V15L6402F" 

IF O(PROP)-Q THEN PRINT LEFTS(PS(PROP),8);:COLOR 1:PRINT "-BNK";:COLOR 1:EN 


=EN+1 : XX=XX+1 : COLOR 1 


2895 


IF O(PROP)-1 THEN PRINT LEFT$(P$(PROP),8);:COLOR 2:PRINT"-";LEFT$(N$(1),3); 


:COLOR 1:EN=EN+1:XX=XX+1:IF B(PROP)-1 THEN COLOR 3:PRINT"-Book";:COLOR 1 


2896 


IF O(PROP)-3 THEN PRINT LEFT$(P$(PROP),8);:COLOR 2:PRINT"-";LEFT$(N$(1),3); 
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:COLOR 1:EN=EN+1:XX=XX+1:COLOR 3:PRINT"-Mrtg";:COLOR 1 

2900 IF O(PROP)-2 THEN PRINT LEFT$(P$(PROP) ,8);:COLOR 3:PRINT"-";LEFT$(N$(2),3); 
:COLOR 1:EN=EN+1:XX=XX+1:IF B(PROP)=2 THEN COLOR 2:PRINT"=Book"::COLOR 1 

2991 IF O(PROP)-4 THEN PRINT LEFT$(P$(PROP) ,8);:COLOR 3:PRINT"-";LEFT$(N$(2) ,3); 
:COLOR 1:EN=EN+1:XX=XX+1:COLOR 2:PRINT"-Mrtg";:COLOR 1 

2905 IF ЕМ-10 THEN EN=EN-19:XX=XX-19:GOTO 2915 

291) GOTO 2940 

2915 LOCATE 18,8:PRINT"< Any Key >"; 

2920 AKS$-INKEYS$:IF AK$-""THEN 2920 

2925 LINE(59,35) - (299,159) ,Q, BF 

2939 LINE(51,36)-(199,149),3,B 

2935 LOCATE 6,8:PRINT"REAL ESTATE"; 

2940 NEXT 

2945 LOCATE 18,8:PRINT"Any KEY";: 

2950 AKS=INKEYS:IF AK$-""THEN 2945 

2955 COLOR 1 

2960 PUT(59,35),V,PSET 

2965 GOTO 720 

2979 ' 

2975 '** READ IN THE PROPERTY HERE κά 

2989 ' 

2985 FOR X-1 TO 49:READ P$(X) ,0(X) ,R@(X) ,R1(X) ,R2(X) ,R3(X) ,RA(X) ,R5(X) , HC(X) ,MV( 
X),UN(X),P(X):NEXT X 

2999 DATA BALTIMORE АУЕ,0,2,10,30,90,160,250,50,30,33,60 

2995 DATA COUNTY CHEST,5, ,0,0,0,0,0 

3000 DATA MEDIOCRE AVE 80,320,450,50,30,33,60 

3005 DATA INCOME ТАХ,5 ,0,0,0 

3010 DATA READING RR, ,100,110,200 

3015 DATA ORIENTAL АУ ,800,550,50,50,55,100 


g 
p, 9 
Е, 79 
3020 DATA СНАМСЕ, 5,9,7, 0,0 
0 4 
p, 
g 
& 


g 
0,4, 
,0,0, 
0,0, 
0,6 
0,0 
3025 DATA VERMIN АУЕ,0,6,3 00,550,50,50,55,100 
3030 DATA CONNECT АУЕ,0,8, 450,600,50,60,66,120 
3035 DATA JAIL,5,9,9,9,9,9, 

3040 DATA ST CHUCKS РІ.,0,10,5 
3045 DATA ELECTRIC С0,0,0,0,0,0,0,0,0,75,82,150 
3050 DATA STATES АУЕ,0,10,50,150,450,625,750,100,70,77,140 
2 
ϱ 


9 


2 
* 
g 
g 
2 
,g, 
79, 
;3 
,g, 
g, 


50,625,750,100,70,77,140 


3055 DATA VIRGINIA АУЕ,0,12,60,180,500,700,900,100,80,88,160 
306) DATA PENN ВВ,0,0,0,0,0,0,0,0,100,110,200 

3065 DATA ST JAMES РІ.,0,14,70,200,550,750,950,100,90,99,180 
3070 DATA COUNTY СНЕ8Т,5,0,0,0,0,0,0,0,0,0,0 


3075 DATA TENNESSEE АУЕ,0,14,70,200,550,750,950,100,90,99,180 
3080 DATA NEW YORK АУЕ,0,16,80,220,600,800,1000,100,100,110,200 
3085 DATA FREE РАЕКІМС,5,0,0,0,0,0,0,0,0,0,0 

3090 DATA KENTUCKY АУЕ,0,18,90,250,700,875,1050,150,110,121,220 
3995 DATA CHANCE,5,9,9,9,9,9,9,9,9,9,9 

3100 DATA INDIANA АУЕ,0,18,90,250,700,875,1050,150,110,121,220 
3105 DATA ILLINOIS АУЕ,0,20,100,300,750,925,1100,150,120,132,240 
3110 DATA B & O ЕЕ,0,0,0,0,0,0,0,0,100,100,200 

3115 DATA ATLANTIS АУЕ,0,22,110,330,800,975,1150,150,130,143,260 
3120 DATA VENTNOR АУЕ,0,22,110,330,800,975,1150,150,130,143,260 
3125 DATA WATER М0ВК5,0,0,0,0,0,0,0,0,75,82,150 

3130 DATA MARVIN СрМ5,0,24,120,360,850,1025,1200,150,140,154,280 
3135 DATA GO TO JAIL,5,9,9,9,9,9,0,9,9,9,9 

3149 DATA PACIFIC АУЕ,0,26,130,390,900,1100,1275,200,150,165,300 
3145 DATA М CAROLINA АУЕ,0,26,130,390,900,1100,1275,200,150,165,300 
3150 DATA COUNTY СНЕ5Т,5,0,0,0,0,0,0,0,0,0,0 

3155 DATA PENN АУЕ,0,28,150,450,1000,1200,1400,200,160,176,320 
3160 DATA SHIRT LINE ЕВ,0,0,0,0,0,0,0,0,100,110,200 

3165 DATA СНАКСЕ,5,0,0,0,0,0,0,0,0,0,0 
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3170 DATA PORK РІ.АСЕ,й,35,175,500,1100,1300,1500,200,175,192,350 
3175 DATA LUXURY ТАХ,5,0,0,0,0,0,0,0,0,0,0 

3189 DATA ВІЕРМАІК,0,50,200,600,1400,1700,2000,200,200,220,400 
3185 DATA С60,5,0,0,0,0,0,0,0,0,0,0 

3190 RETURN 

3195 ' 

3200 "хх DRAW THE PLAYING BOARD ** 

3295 ' 
3219 ' 

3215 ' down the ALT key and typing in the corresponding CHR$ key оп the Numeric 
3220 ' Keypad. For example to get a 'é' you HOLD ALT & type 201, then release. 


HOW TO CREATE FOLLOWING LINES The CHARACTERS are created by holding 


3225 
3230 
3235 
3240 ' 
3245 "ххх Don't PANIC...Your printer MAY REFUSE ТО LIST THESE LINES. 
3250 ' 
3255 В1$=" ебегбевейееввевчевевейевевейевевепевеввейввевецввввевйввввейевввеайеве 
ëëëf" 
3260 B2$-" ü ü ú ú ú ú ú ú ú ú ú 
Ur 
3265 B3$-" ú áéééééóéó668606666606666608666666066666066666066666066666; 
ου 
3270 В4$=" аввввйвбвввввебвввввбввввгебевввведеваввбвввввбавгвввебавввебевеввбейе 
ëëë¿" 
3275 B5$=" ú ú ú ú ú 
11" 
3289 В65-" äëëëëöë; äëöë 
ëëë¿" 
3285 B7$=" аёёёеоёбёёёёёцёёёёёцеёёёёёцёёёёёцёёёёёцёёеёёёцёёёёёцёёёёёцёёёёёбёоё 
ёёё;" 
3290 В85-" ἀδξδξδξξδδξὸξδξδξδὸδξδξδὀξδδξδδὸδξδξδὀξδξξδξὀδξδξδδὀξξδδξὀὸξδξξᾶδδὸξδδξᾶδὸδξδ 
éeey" 
3295 LOCATE 25,1:PRINT B8$; 
3300 LOCATE 1,1,0:PRINT B1$:PRINT B2$:PRINT B3$:PRINT B4$:PRINT B5$:PRINT B6$:PR 
INT B5$:PRINT B6$:PRINT B5$:PRINT B6$:PRINT B5$:PRINT B6$:PRINT B5$:PRINT B6$:PR 
INT B5$:PRINT B6$:PRINT B5$:PRINT B6$ 
3305 PRINT B5$:PRINT B6$:PRINT B5$:PRINT B7$:PRINT B3$:PRINT B2$; 
3310 ' 
3315 '*** GETTING the Graphic Dice! *** 
3320 ' 
3325 LINE(258,14@) - (288,155), 1, B:LINE(377,149) - (347,155) ,1,B 
3330 PSET(272,147) :PSET(357,145) : PSET(367,1590) :GET(258 , 149) - (288,155) , NU: GET(377 
, 149) - (347,155) ,NV: PSET(263 ,143) :PSET(283,151) :GET(258,140) - (288,155) , NN: PSET(35 
7,156) : PSET (367,145) :GET(377,14@) - (347,155) , NX 
3335 PSET(362,147) :GET(377,140) - (347,155) , NY: PRESET(272,147) : PRESET(263 , 143) : PRE 
SET(283,151):PSET(268,144) : PSET(268,148) : PSET(268,152) : PSET(278 , 144) : PSET(278,14 
8):PSET(278,152) :GET(258,140) - (288,155) , NZ 
3349 ' 
3345 '*** Painting the Property *** 
3359 ' 
3355 PAINT(140,175),"L":PAINT(285,175) , "L" :PAINT(310,175) ,2, 1: PAINT(345,175) ,2,1 
:PAINT(441,175),2,1:PAINT(498,175),2,1 
3360 PAINT(14@,25) ,3,1:PAINT(2@5,25) ,3,1:PAINT(288, 25) ,3, 1: PAINT(310,175) , 1,1:PA 
INT(345,25),2,1:PAINT(441,25),2,1:PAINT(498,25) ,2, 1: PAINT(310,25),1,1 
3365 PAINT(9%,163) ,3,1:PAINT(9%,137) ,3,1: PAINT(90,98),1,1:PAINT(90,80) , " Z" T PAINT 
(98,55) ,"z":PAINT(90,39) , "2" 
3370 PAINT(545,163) ,3,1:PAINT(545,137) ,3,1:PAINT(545,110) ,3, 1: PAINT(545,98),1,1: 
PAINT(545,89) ,"M":PAINT(545,790) , "M" : PAINT(545,30) , "M" 


= 185 n-186 £-187 Ұ-188 а = 20 ὁ = 201 5-292 
- 203 &-294 8-205 6 = 296 
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3375 LINE(115,125)-(240,1690),1,B:LINE(515,125) - (399,169) , 1, B: LINE(115,35)-(515,7 
8),1,B:LINE(115,72)-(515,107) ,1,B:PAINT(113,125),2,1 

3389 LINE(120,128)-(235,157),1,B:LINE(510,128) - (395,157) , 1, B:PAINT(117,126),3,1: 
PAINT(512,126),3,1 

3385 LINE(128,75)-(5190,104) , 1, B: LINE(120,38)-(519,67) , 1, B: PAINT(119,76) ,3,1:PAIN 
T(119,495),3,1 

3390 LOCATE 23,8:PRINT CHR$(24);"GO":LOCATE 23,68:PRINT"GO TO":LOCATE 24,68:PRIN 
T"JAIL!";:LOCATE 24,8:PRINT CHR$(192);CHR$(196);CHR$(196); 

3395 LOCATE 24,14:PRINT"BWALK";:LOCATE 24,21:PRINT "TAX";:LOCATE 24,26:PRINT"PLA 
CE"; :LOCATE 24,34:PRINT"?";:LOCATE 24,38:PRINT"SL RR";:LOCATE 24,44:PRINT"PA AV" 
;:LOCATE 24,52:PRINT"$";:LOCATE 24,56 

3400 PRINT"NC AV";:LOCATE 24,62:PRINT"PC AV"; 

3495 LOCATE 2,8:PRINT"JAIL":LOCATE 3,8:PRINT"BIRD":LOCATE 2,69:PRINT"FREE":LOCAT 
E 3,69: PRINT"PARK" 

3410 LOCATE 2,14:PRINT"ST CH":LOCATE 2,20:PRINT"ELECT":LOCATE 2,26:PRINT"STATE": 
LOCATE 2,32:PRINT"VA AV":LOCATE 2,38:PRINT"-PRR-":LOCATE 2,44:PRINT"ST JA":LOCAT 
E 2,51:PRINT" $ ":LOCATE 2,56 

3415 PRINT"TENN.":LOCATE 2,62:PRINT"NY AV" 

3420 LOCATE 5,7:PRINT"CONN":LOCATE 7,7:PRINT"VERM":LOCATE 9,7:PRINT" ?":LOCATE 1 
1,7:PRINT"ORNT":LOCATE 13,7:PRINT"RRR-":LOCATE 15,7:PRINT"$290g" 

3425 LOCATE 17,7:PRINT"MEDI":LOCATE 21,7:PRINT"BALT":LOCATE 19,7:PRINT" $" 

3430 LOCATE 5,79: РКІМТ"КЕМТ":ІОСАТЕ 9,70:PRINT"IND.":LOCATE 11,7%:PRINT"ILL.":LO 
CATE 7,70:PRINT" ?":LOCATE 13,790:PRINT"B&O" 

3435 LOCATE 15,79:PRINT"ATLA":LOCATE 17,70: РКІМТ"УЕМТ":ІОСАТЕ 21,70:PRINT"MARV": 
LOCATE 19,70:PRINT"WATR":LOCATE 8,24:PRINT"WAIT-I'm passing out the money!" 

3440 PAINT(50,1990),2,1:PAINT(50,15),3,1:PAINT(585,190) ,3, 1: PAINT(585,15),2, 1: PAI 
NT(620,10) , CHR$ (53) 

3445 LOCATE 17,32:PRINT STRINCS(17," "):LOCATE 21,32:PRINT STRING$(17," "):LOCAT 
Е 18,52:PRINT" CH E S T":LOCATE 18,17:PRINI"C HA N C E" 

3450 LOCATE 15,31:7:PRINT" T A N Y 0 P O L У" 

3455 TT$-"Tanyopoly by L Нуге" 

3460 FOR TT=4 TO 22:LOCATE TT,2,@:PRINT " "+MIDS(TT$,TT-3,1)+" ";:NEXT:LOCATE 8, 
24:PRINT STRINGS$(34," ") 

3465 RETURN 

3470 ' 

3475 '** READ IN COUNTY CHEST AND CHANCE HERE ** 

3489 ' 

3485 FOR CHANCE=1 TO 12:READ C1$(CHANCE) ,C2$ (CHANCE) : NEXT 

3490 DATA JAYWALKER,$25 FINE! ,$25 FOR,EACH HSE/HTL,GET OUT OF,JAIL FREE! , ADVANCE 
TO,NEAREST RR,PAY!  EACH,PLAYER $50,ADVANCE TO,ST CHUCKS,ADVANCE TO,--- GO ---, 
ADVANCE TO--,ILLINOIS AVE,GO TO JAIL,*DIRECTLY* 

3495 DATA ADVANCE TO-,*BIRDWALK*,LOAN MATURES,COLLECT- 550,РАҮ POOR TAX,--- $ 15 
3500 FOR CHEST-1 TO 12:READ C4$(CHEST) ,C5$(CHEST) : NEXT 

3505 DATA COLLECT $50,FROM FRIEND,COLLECT $45,FROM STOCK,ADVANCE TO,--- GO ---, 
BANK ERROR!,COLLECT $209 ,RECEIVE $25,FOR SERVICES,GO TO JAIL,-DIRECTLY!-,PAY $19 
Ø ,HOSPITAL,SOLD C-64,COLLECT $20,SCHOOL TAX, PAY $15%,XMAS  CLUB,COLLECT $199 

3510 DATA DOCTOR FEE,** 5 50 **,CONTEST,WIN $12 

3515 RETURN 

3520 RL=INT(RND(1)*6)+1:PRINT RL: FOR DL-1 TO 29%:NEXT:GOTO 3520 

3525 ! 

3530 ΧΧΧ WHERE TO РОТ PLAYING PIECES *** 

8535 " 

3540 FOR LP-1 TO 49:READ O1(LP) ,D1(LP) :NEXT 

3545 DATA 53,158,53,141,553,126,53,1149,53,93,53,78,53,62,53,56,53,30,53,85 113,6 ,1 
61,6,209,6,257,6,305,6,352,6,402,6,451,6,497,6,545,6,545,30,545,46,545,62,545,78 
,545,93,545,110,545,126,545,141,545,158,545,180,496,180,451,180,401,180,353,180 

3559 DATA 307,180,257,180,209,180,158,180,113,180,57,180 

3555 RETURN 
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old pro- 
grammer's 
axiom 
(and I'm 
one of 
the old- 


est programmers you know) goes 
something like this: “Тһе amount of 
available memory is always ІК less 
than what is required." A corollary 
says just about the same thing for disk 
storage. RAM is getting less and less 
expensive — about a dollar per kilo- 
byte. Hard disk prices are also falling 
— about 4.5 cents per kilobyte. 

In spite of these trends, we're going 
to look at some software alternatives 


William Barden, Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — mi- 
crocomputers. A prolific author of 
more than 27 books on computers and 
computer programming, Bill also has 
authored several instructional soft- 
ware projects for Tandy| Radio 
Shack. 


to packing more data onto disk files 
in this month’s column. What tricks 
can be used to pack more data onto 
disk? What are some of the data 
compression methods? What in the 
world is Huffman encoding? Regard- 
less of the amount of main memory or 
disk storage, you'll find many cases 
where the memory axiom and corol- 
lary raise their ugly heads. 


Sequential Files 

The place to begin is with an old 
friend, the sequential file. Several 
months ago I did a column on sequen- 
tial files. In it, I told you I liked them 
because they are “user friendly." With 
sequential files, you generally know 
what you have — you can do a TYPE 
command in MS-DOS and see the 
entire file printed without strange 
happy faces followed by control codes 
that cause screen clears and other 
unpredictable actions. 

Although it's possible to incorpo- 
rate control codes (those characters 
with a value of less than 32 decimal) 
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or the extended character set (those characters with а value 
greater than 127 decimal), sequential files are usually ASCII 
files made up of alphabetic, numeric and special characters 
between 32 (space) and 127 (backspace). 

Take the following MS-DOS sequence, for example: 


A»copy con scratch 

They can have my Tandy 1999 when they pry my cold, dead 
fingers from it! 

Tippicanoe and Tandy too! 

22, 


This sequence builds an ASCII (sequential) file called 
SCRATCH made up of three lines. (I had to wrap the first 
line around in the text above, but not on the screen.) The 
file can be examined using Debug: 

A»debug scratch 
-d 
0931:0100 54 68 65 79 20 ....65 29 6D 79 They сап have my 





The first column represents the memory location into 
which the file has been loaded (it may be different on your 
system). The bulk of the display consists of hexadecimal 
data showing the characters in sequence in the file. The 
right-hand portion of the display shows the corresponding 
ASCII characters, or periods if there are no displayable 
ASCII characters for the data. 

Between the first and second lines of the Debug dump, 
you'll see: 


0931:0140 66 72 6F 6D 29 69 74 21-90 ØA 74 69 70 70 69 63 
for the location and Hex data. The 00 08 represents the 


carriage return and line feed that make up the end of the 
first line. 





Processing Sequential Files 
with BASIC 

The nice thing about sequential files is that you can read 
in the files in BASIC and process them anyway you'd like. 
For example, this code would read in and print each line 
of the file plus the line length: 


100 OPEN "SCRATCH" FOR INPUT AS #1 
110 WHILE NOT EOF( 1 ) 

120 LINE INPUT#1, A$ 

130 PRINT A$; "/"; LEN( A$ ) 
140 WEND 


resulting in 


They can have my Tandy 1999 when they pry my cold, dead 
fingers from it!/ 72 
Tippicanoe and Tandy too!/ 25 





Creating Sequential Files with BASIC 

BASIC can process any ASCII file created by an MS-DOS 
COPY command, by a word processor, by telecommunica- 
tions or other means. BASIC, of course, can also create 
sequential files. In a BASIC sequential file, a// data, even 
numeric data, is made up of ASCII characters. 

Suppose you want to create an inventory file with part 
number, description and quantity on hand, denoted by 
variables PN, DESC$ and QOH. Here's one way to do it, 
working with keyboard entry data: 


100 OPEN "INVENT" FOR OUTPUT AS 41 
110 INPUT PN, рЕЅС$, QOH 
129 PRINT#1, PN, DESC$, QOH 


A typical file created by this method is shown in Figure 


Notice the three parts take up 134 bytes of disk storage, 
counting carriage return/line feeds (@D/@A) and end-of-file 
marker (1A), but only 81 characters are represented: 

199 Write-Only Memories 1234 


191 No-Sided Disk 125 
102 Archer Nuclear Device Kit 75 


This is a 40 percent waste of storage in this short file! 
A better way to store this data is by using PRINTH with 
semicolons. See Figure 2. 


Here, 94 bytes were used for 82 bytes of actual data and 
only 13 percent of the file space was wasted, for carriage 
return/ line feeds (20/028), spaces for padding (before and 
after numeric values) and the 1A end-of-file character. 

By the way, in this discussion we’re ignoring the fact that 
BASIC and MS-DOS allocate space for disk files in blocks 
of 1,024 bytes. Obviously, if files are very short, there’s going 
to be wasted space in the unused portion of the file. For 
typical large files, however, the unused space at the end of 
the last 1,024 bytes becomes less and less of a factor. A file 
of 65,000 characters, for example, uses 64 1,024-byte 
“clusters.” The 64th cluster uses only 488 bytes, but the 
overall wasted space is only 536/ 65,536 or 0.8 percent. We’re 
talking about large files here, but using short segments of 
data for examples. 

A third way of storing data in a sequential file is by using 
WRITE# statements. WRITEH is specifically geared to using 
minimum space on files. See Figure 3 for the modified code 
and the resultant file. 

Here, 94 bytes were also used, the reduction in padding 
spaces being offset by automatic insertion of commas and 
double quotes. 


There Must Be a Better Way 

Is that the best we can do? There must be a more efficient 
way to store data. 

Right at the outset, you can guess that there is, but 
compressing data on disk will not come cheaply, either in 
time or user friendliness. 


Random Files 

Random files are an alternative to sequential files. They 
should be used any time a file is not read through from 
beginning to end — the inventory example might access an 
unpredictable sequence of part numbers, for example — 
Part Number 34 followed by Part Number 105, followed by 
Part Number 2, etc. 

Random files, though, don’t usually save disk space over 
sequential files. As each record in a random file is fixed 
length, chances are much space is wasted, as the largest 
possible record size must be accounted for. In the sequence 


199 Write-Only Memories 1234 
101-Ко-5ідей Disk 125 
192 Archer Nuclear Device Kit 75 


for example, the record size would probably be large enough 
to handle the last entry, as it’s the longest. 

On the other hand, random files with little text data and 
a lot of numeric data could conceivably result in some data 
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compression, as numeric values are stored in the record 
fields as numeric and not ASCII data. The value 104.56, 
for example, would be stored as a single-precision four-byte 
number instead of the six characters 1, 0, 4, ., 5 and 6. 
Random files are not the answer. 


An Old Programmer's Trick 

One method of data compression uses the following 
scheme: two bytes can hold values of zero to 65,535, 
unsigned. (BASIC integer values can be -32,768 through 
*32,767 in signed form, also in two bytes.) Suppose we use 
the two bytes to represent three digits with the base of 40. 
We'll use the following codes: 





© со —1 ON QA ә м — © 
Cc 
N 
© 


"cH COE ST KR rx Neo oO aD 


ο" N O (n A C) N F° @ iN < XE < 
N 
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TOLL FREE ORDER LINE 
(800) 245-6228 


SPECIAL!!! 


SALE ON HARD DRIVE 
SYSTEMS FOR THE 


TANDY 1000 
INCLUDES WD CONTROLLER 
CABLES, MOUNTING HARDWARE 
& INSTRUCTIONS 


10 MEG....$385. 
20 MEG....$489. 


EXTERNAL CASE AND POWER SUPPLY 
ADD...$125. 


20 MEG 1/2 LENGTH HARD CARD $655. 
This Allows TWO FLOPPIES Internally!!! 
Memory Card with 512K DMA $149. 

Multifunction Card $99. 


1 Year Warranty on ALL Items!!! 
М.С. & VISA Accepted 





















бе eT OWL-Services 
P.O. Box 116-D 
PRICES!!! Mertztown. PA. 
(800) Spes 





PA Res Include 6 % Tax 
—PA (215) 682-6855 


245-6228 





As long as data can be represented by these 40 characters, 
this *base 40 packing" scheme enables you to boldly pack 
three characters where two have gone before. Suppose, for 
example, you wanted to store the word "THE." In this 
coding scheme, the representation would be: 





The characters could be “unpacked” by a “divide and save 
remainders" technique: 


/30,684/40 = 767, remainder 
(767/40 ^ *I9,remainder7 ^ ^ ^ 
.19/40. ^ =0, remainder 19 ΩΩ, 











To see how this scheme works, look at listings 1 and 2. 
They show a packing routine that converts an ASCII file 
to a *base-40-packed" file and an unpacking routine that 
reconverts the packed file to an ASCII file. 








The blood of Kings or of Knaves or both. 
Family Roots software helps you trace 
your bloodlines back through lost gener- 
ations and the mists of time. 


For your Apple, IBM, Commodore, Kay- 
pro, TRS- 80,* and many others, Family 
Roots offers all kinds of genealogical assis- 
tance: Individual and group sheets, charts, 
name indices, general search and text 
capabilities. Adapts 
Bl d to most disk drives, 
ОО e printers, and screens. 
You get more utility 
programs, plus lots 
of personal control. 
A comprehensive 
(new) manual 
is included. 


АП for just $185. 


Write or call today 
for more infor- 
mation and a 

free brochure. 


Quinsept, Inc. 


P.O. Box 216 
Lexington, MA 02173 
(617) 641-2930 


American Express, 

Visa, and MasterCard 
gladly accepted. 

Trademarks for Apple 

Computer Inc., International 
Business Machines, CBM, Inc., 
Digital Research and Tandy Corp. 
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Figure 1 


A»debug invent 


9931:9199 29 31 39 39 29 20 id 20-20 20 20 29 29 29 57 72 100 Wr 
|.9931:9119 69 74 65 2D АҒ 6E 6С 79-20 4D 65 6D 6Е 72 69 65 ite-Only Memorie | 
20931:012) 73.29 29 20 20 20 20 20-20 20 20 31 32 33 34 09  s$ ^ 1234. 

0931:0130 фр GA 20 31 39 31 29 20-20 20 20 29 29 29 20 299  .. 191 


1110931:0140 AE 6F 2D 53 69 64 65 64-20 44 69 73 6B 20 29 31 No-Sided Disk 1. 
2931:0150 32 35 29 ØD GA 20 31 39-32 29 29 29 29 29 20 29 | 25 .. 192 





0931:0160 20 20 20 41 72 63 68 65-72 20 AE 75 63 6C 65 61 Archer Nuclea 

0931:0170 72 20 44. 65.76.69 63 65-20 4B 69 74 29 20 20 20  r Device Kit 

ға iu М ӨЗЕНІН N 

0931:0g180 37 35 20 QD QA 1А ЗА C6-74 9C ЗА C2 74 08 ЕЗ 8B 75. Ft. :Bt.h. 
Figure 2 


1100 OPEN "INVENT" FOR OUTPUT AS #1 
119 INPUT PN, DESCS, QOH 
129 PRINT#1, PN; DESCS: QOH 


A>debug invent 

-а i | 
1093110100203130°30 29 57 72 69-74 65 2D АҒ 6E 6C 79 20 | 109 Write-Only 
9931:9119 40 65 6D 6F 72 69 65 73-29 31 32 33 34 20 OD QA Memories 1234 ... 
0931:0120 29 31 30 31 20 4E 6F 2D-53 69 64 65 64 20 44. 69 101 No-Sided Di 
0931:013) 73 6B 29 31 32 35 20 9D-9A 29 31 30 32 29 41 72. sk 125 .. 102 Ax 
0931:0140 63 68 65 72 29 AE 75 63-60 65 61 72 20 44 65 76 | cher Nuclear: bev 
0931:0150 69 63 65 20 4B 69 74 20-37 35 20 OD QA lA 8A C2 ^ ice Kit PSB 
GI31: 9169.30 2C 8A Cl 74 93 Е8 В3-0) Е8 8F 71 72 28 3C QA  «,.At.h3.h.qr(«. 
9931:9179 74 BA 30 ØD 75 9C 8A 02-56 29 74 15 3C 2C BY 9D . tj«.u..B« 6.<,0. 





Listing 1: 





19g ' Convert ASCII Disk Fíle to Base 40 Coded Disk File \\ 

11g KEY OFF MER UN 
120 B4GS$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ9123456789. ." + CHR$(9) + CHRS(9) + 

ΜΑΜΑ Мнн 

130 CLS 

140 LOCATE 1,16 | 

150 PRINT "Convert ASCII Disk Ғі1е со Base: 4g. Coded Disk File" 

516] LOCATE 3,5: INPUT "Source File: ", δες TM 

170 LOCATE 4,5: INPUT "Dest File: ", DFS 

180 ОРЕМ SF$ FOR. INPUT: AS #1 

190 OPEN DFS: AS. #2 U LEN=128: 

20) FIELDE2, 128 AS BLOCKS 
7210 BSTRINGS-^": BSLEN = 9: BYTE = 9: DIGIT = 1600 

220 WHILE NOT EOF( 1 ) 

230 LINE INPUT£1, IN$ 

249... PRINT INS 

250 FOR I = 1 TO LEN ( INS ): INCHR$ - MIDS CINS I, 12: ) 


269 V = INSTR( В405, INCHRS ) 
279 IF V = TBEN 300 
289 IF V > 48 THEN V = V - 49 


290 QUTCHR =. V - 1: GOSUB 389 
30g NEXT I | 
319. OUTCHR + 38: |G0SUB | 38g 
320 WEND 
339 BYTE = BYTE + 39 * DIGIT: GÓSUB 416... 
34 IF BSLEN <> 9 THEN LSET BLOCKS = BSTRING$: PUT#2 
350 CLOSE 
21360 GOTO 139 








100 PCM July 1986 


(378. τ! SUELE HE to: ΗΡΙ ІНІҢ ыр Base Pos character ИШ 
(15/389 BYTE = BYTE + OUTCHR * DICIT i И НИНИ 
111390 IF DIGIT <> 1 THEN DIGIT - = DIGIT. ή 49. ELSE. ози аш ШЕННЕН 
11800 RETURN 22 H 
410 ' Subroutine to ДЕНЕ next "ығы: Hi HIH ΠΗ 
429 DIGIT = 1600: BSTRINGS = BSTRINGS + Gast INT( BYTE / 256 020%. HHI 
О СНЕ( BYTE - INT( BYTE / 256 ) * 256 у: BYTE = f: BSLEN = ВЕН. yu 
439 ТЕ BSLEN = 128 THEN LSET ή - BSTRINGS: PUTA. η НИКЕНИН 








BSLEN =: g 
449 RETURN 
| Listing 2: 
199 Convert Baas 49 Codes’ [Disk File бо ASCII Disk File 
11g KEY OFF 
1208405 = 'ABGEFGHLIKLANOPQUSTUWEEIGUL 3096789 jJ» 
130 CLS 


149 LOCATE 1,16 
150 PRINT "Convert Base 49. Codes Disk File to ASCH Disk: File’ 
160 "Open source and destination files { 

170 LOCATE 3, 5: INPUT "Source File: ", 5Ε8 

18) LOCATE 4, 5: INPUT) "Dest File: 

























199 OPEN SES AS #1) LENS128 
200 OPEN DFS FOR OUTPUT AS #2 
210 FIELDS1, 128 AS BLOCKS | 
229 'Read in and convert file 
230 ASCIISS = "W" BING — "wi 
280 WHILE NOT TERM i 
250 GET#L: BSTRINGS = - BLOCKS 


Қы ВЕ9 


TERM = g 





268 FOR I = 1 TO LEN ( BSTRINGS ) STEP 2 


279 ВҮТЕ15 = MIDS( BSTRINGS$, I, 1/) 

280 2! 'BYTE2$ = MIDS( BSTRINGS, I € 1, 1) || 

298 WORD - А5С( BYTEl$ ) * 256 4 ASC( BYTES: у 

300 CODE2 = INTC WORD / 1600) 

319 CODE] = INT( ( WORD + CODE2 * 1600 у / 60.) 

320 01! CODED ~ WORD - ( CODE2 * 1600 ) ` ( CODEL * 4g ) 

330 CODE2$ = MIDS( B49$, CODE2 +'1, 1.) НИВН ИИН ЕН ИИН ЕНІНІҢ 
34g С09Е15 = MID$( πόρο, CODEl + 1, 1 ) | ННН НЕЕ 
350 СОрЕ 5 = MIDS C в405, CODEG +1, 1) | ЕНЕНЕ ; i 
369 CGODE$ = С00Е25: GOSUB 440: IF TERM THEN 400 

379 CCODES = СОрЕ19: GOSUB 440: IF TERM THEN 400 

380 CCODES = GODEG$: GOSUB 440: IF TERM THEN 499 


390 NEXT I 
400 WEND 


810 IF А5СІ155 <> "“ THEN PRINT, ASCIISS: PRINT: ο... меге mum ΠΗ 


429 CLOSE 
430 GOTO: 132 


4801 Subroutine to store current character, 


test for new lines, and ЕРИНДЕН 


«ӘЙ IF/CCODES <> "у" THEN ТЕ CCODES <> “/" THEN ASCIIS$ = А561155 + CCODE$: 


GOTO 48g 


460 IF CCODES$ = "Ἂν THEN PRINT&2, ASCIISS$: PRINT ASCIISS: ASCIISS = wr: 


GOTO 48g 


870 TERM = -l; PRINT#2, А5С1155: PRINT ASCIIS$ 


480 RETURN 


The packing program works like this: The ASCII 
(sequential) file must contain only alphabetic characters ñ- 
2, а-2, digits @-3, blanks and periods. А space is substituted 
for all other characters. The program reads in the ASCII 
file one line at a time. Each line is then scanned from left 
to right for characters. As each character is encountered, 
it is converted to a base-40 character from the Β405 array. 
Three of these characters at a time are packed into a single- 
byte value from zero to 63,999. The single-byte value is then 
stored into the next field of a random file. After each 128 
bytes, a PUT is done to write out a random file record. A 
"new line" character (38) is packed at the end of each input 
file line. The process continues until the end of the input 


file, at which time the special character (39) is written out 
to mark the end of the file. 

Why is a random file used? It would be possible to use 
a sequential file except for one glitch: BASIC sequential files 
use a terminating 18 (hexadecimal) character to mark the 
end of file. It's possible a 18 character may be generated 
in constructing the data, as in the sequence “МА1,” which 
produces the two Hex bytes C0 and 1A. This erroneous end 
of file stops a read of the packed file in the unpacking 
program to be described. There's no way around the 18 end 
of file except to use a random file, which expects and allows 
binary data. (By specifying a single field and using every 
byte in the field without blanks for padding, we can 
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eliminate wasted space in the file.) 

The first portion of a packed file is shown in Figure 4. 
It contains the three inventory entries as before, but they 
are not recognizable! That's one of the disadvantages of 
packing data in this fashion — you can't just simply scan 
a file using TYPE (which produces garbage) or Debug. 


The unpacking program takes the packed random file and 
reads in (using GET) one 128-byte record at a time. As each 
record is read in, it is scanned as an ordinary string. Each 
byte of the string is reconverted to three base-40 digits, each 
digit having a value of zero through 39. The three digits are 
reconverted to the ASCII characters Α-Ζ, 0-9, blank ог 
period. A code of 38 results in a carriage return/line feed 
action. If the special character 39 is encountered it marks 
the end of file. This delimiter is necessary because the end 
of file may come anywhere within a random file record, 
unlike an ordinary random file record. 

The pack and unpack programs work relatively fast — 
11 seconds to process 1,000 characters when using a 
compiled version of the program. Data compression is 31 
percent — each file is compressed to 67 percent of the best 
case sequential or random file, not considering the unused 
portion of the file due to MS-DOS file allocation. However, 
this is probably not worth the trouble. After all, we can't 
represent all of the 96 characters normally found in straight 
ASCII text. 


Huffman Coding 
In the base-40 coding and in ASCII encoding, each .pa 
character is assigned an equal “weight.” Both the letter ‘Q’, 





| 360K Floppy Drive ` 
NOW AVAILABLE FOR THE TANDY 3000 


Allows copying of TANDY 3000 hard disk 
files to the high density drive in 360K format. 
Files transferred may then be reliably read on 
PC’s and Compatibles. A 360K floppy drive is 
not required. CPYAT2PC may reside on your 
TANDY 3000 hard disk and copies 1 file or 
entire subdirectories in 1 step. Also runs on 
other 80286 compatibles such as IBM PC/AT, 
COMPAQ 286, ZENITH Z-200 and HP VECTRA. 
Dealer inquiries welcome. 
Only $79.00 + shipping. 


CERTIFICATION 
SEAL 


MICROBRIDGE COMPUTERS 
Sky Way Building, Suite 125 
655 Sky Way, San Carlos, CA 94070 
(415) 593-8777 * (415) 595-2150 


ws CHECK, COD WELCOME ч 
iiti (Prepayment Required) ашы 
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ап infrequently used letter, and the letter ‘E’, a frequently 
used letter, have an equal number of bits to represent them. 
It would make for a more efficient representation of data 
if characters were assigned bit lengths based upon their 
frequency of use. Morse code, for example, uses a single 
"dot" of one unit of time (an audible bleep) for the letter 
*E' and the sequence “dash, dash, dot, dash" of 13 units of 
time for the infrequently used ‘Q’. The result is a higher 
"Baud rate" for Morse code keying. 

Huffman encoding uses such a frequency-dependent 
scheme. The letter “Е” may have a code length of four bits, 
while a ‘Q’ may have a code length of 10 bits. 

To Huffman encode any set of characters, the following 
method is used. Start with a frequency table of characters. 
We'll use this table for ease of illustration: 


e 142 times 
h 40 
j 1 
т 20 
п 57 
а 0 
V 11 


Not ай 26 alphabetic characters are here, of course, but 
the method works with any number of characters. 

Now build a list of the characters in order, as shown in 
Figure 5. Find the two characters with the lowest frequency, 
in this example “а” and ‘j’. Connect the two characters with 
the branches of a "tree" and create a root with the new 
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This seems like a useful scheme of compressing data. In 
researching this column, I actually went through the process 
of producing a Huffman encoder and decoder routine. 
However, the end result was not too encouraging. The data 
compression for a 1,542-byte sequential file was 912 bytes, 
which is good — about a 41 percent compression. The code, 
however, was not trivial and moreover was rather slow, due 
to the bit shuffling in BASIC. Even the compiled version was 
barely acceptable as far as speed. If you would like to try 
this method of data compression, I strongly suggest using 
Turbo PASCAL, C or assembly language in place of BASIC. 


149 LOCATE) 1; 16 


169 LOCATE.3, 1; INPUT) "File: 7, 
179 PRINT 
180 OPEN SFS FOR INPUT AS #1 
199 "Clear frequency, table 

1200 FOR T = 32 TO 127 
210 FREQ (1-32) = 9 
220 NEXT. T 


SE$ 


240) WHILE NOT ἘΟΡ( 1) 


159 PRINT "Build Frequency Table From Sample А5611 


A Frequency Dependent Algorithm 

The Huffman approach shows promise. It appears the 
repetition of data should definitely be considered when 
compressing data. Let’s investigate the frequency of 
characters in text files further. 

The program shown in Listing 3 provides a count of 
characters versus their frequencies for any ASCII file. The 
results obtained for a typical PCM article are shown in 
Figure 6. It shows the bulk of characters are lowercase 
alphabetic characters — especially vowels. Blanks are the 
most common character. The 127 code here is used to 
represent the number of lines in the file (469). 


Figure 6: Frequency Distribution 


of Typical ASCII File 
ор 
lm 10 | 
ΔΑΡΘ Bi 339 6/; g R8 NR g pis. 226 
! 13 L220 А? 123 бил; 8: 988 ας 6D 
ЇН 25222, ΒΑ εκτ 20 Ῥ ος 197 ry 813 
y 12 3 162 ς:; 109 SATS 614151222. 802818 
$119 (HH) Der 61 Т: 106 а: 468 t L10466 
85 5 5912117893 E2753 1Η 45) e :1699 αν 359 
& y g 61.127 E/25534 NE 5 £/:5/325 vo^. 
NSO: 71:511292 Gv μ΄: 23 β..:21φ weit 165 
(1025 8/1139 M15127 Χ 15:81 his 597 0111911111389 
109 ЭРЕН 1:::105 М 3 1762 y 12998 
NY 6 DIEA ӘН 3 Hh 4 11.16 z 8 
git 7 HHH 6 Ку: 7 ИЛ Ø ко: 86 ( 0 
ШІ 196 «.; 19 ШЫ 7 ХЗ g 12/496 Hh g 
- 73 =} 7 Мид 19 ΤΠ g m :. 257 ΠΩ 0 
4:291 RS 5 Nor UB НЕ 8 m 791 - 0 
Z81112 9/3 6 0/39 Hi g 0 L 856 21869 
Listing 3: 

199 '' Build Frequency Table 

119 KEY OFF 

120 DIM FREQ ( 96 ) 

13061,5 


File" 


230 "Read in a line at a time 'til end 


250 ІЛМЕ INPUT41, INPTS$ 

269." Scan) line, bump character count 

279 FOR I e 1 TO LEN ( INPTSS ) 

289 V -ASC( MIDS( INPTSS, 1, 1)) 

299 IF V < 32 OR V > 127 THEN PRINT "Invalid character at "; I; 
"position of "; INPTS$:'GOTO 319 

309 ЕВЕО( V - 32 y ^ FREQ( у. - 32 y * 1 

310 NEXT 1 

320 FREQ( 95.) = FREQ( 95 ) + 1 

330 МЕМ) 

340 CLOSE 


350 Display codes on screen 
369 FOR I = 32 TO/47 





37220 PRINT USING құн ЖУ CHR$( U T УП FREQ( 1/7/32 y; 

3800 PRINT USING "\\:#### 227; CHRS( 11 16), FREQ( 1 - 16); 

399 PRINT USING "NN:W4^^ UU NI OHRS( L £ 32 ), FREQ( 1.21 

49Q PRINT USING "Құн  "; CHRS( I * 48 ), FREQC I * 16 25 

410. PRINT USING "ҚҚ η CHRS( I 6/64 ), FREQ( 1+ 327); 

АОИ PRINT USING "ҚҚ MS CHRS( L t 80), FREQ( I + 48 ) 

430 NEXT. I | ; ΠΗ | 

509. END | | ΓΗ] HEE HE 

PPHP 
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The total number of characters here is 19,256. Amazingly 
enough, the 15 highest frequency characters amount to 
14,686 characters, about 76 percent of the text in a typical 
ASCII file. This means we could encode two characters per 
byte (four bits per character) letting the values 0000, 0001, 
0010, 0011, 0100, 0101, 0110, 0111, 1000, 1010, 1011, 
1100, 1101 and 1110 represent the 15 characters: space, 0, 
a,c, d, e, h, i, 1,0, r, S, t, u and new line. (The code 1111 
would be reserved for special purposes.) 

This is a base-16 encoding scheme, analgous to the base- 
40 encoding seen earlier, but having the advantage that the 
“bit shuffling” to get at the codes is less complicated — just 
strip off the upper or lower four bits of every byte. 

The special code 1111 could signify the character lies 
outside of these 15 most frequent characters. It would point 
to the next four bits, which would hold codes for the next 
15 most frequent characters. From the frequency table, 
these characters represent about 14 percent of the characters 
found in a typical text file. Using this scheme, we could 
encode 76 out of 100 characters in about 38 bytes and 14 
out of 100 characters in 14 bytes — 90 out of 100 characters 
in 52 bytes! 

The remaining 10 percent of the characters, however, 
making up 66 various characters, would have to be encoded 
in an additional four bits or eight bits, adding about 17 bytes 
to the total for about 69 compressed characters out of 100 
original characters. Still, this is about the same as the base- 
40 encoding used earlier, and we'd be able to represent all 
96 ASCII characters (but without control codes). 

Word Repetition 

There are other repetitions to be considered as well, 

however. In text files, one obvious repetition is with words. 


RUD's REVIEW'" 
A Guide to Mutual Funds 


Software that can easily pay for itself many times over. 
Use RUD's to learn about the mutual fund industry or 
use RUD's to help identify funds meeting your invest- 
ment needs and objectives. A complete mutual fund 
information retrieval system оп diskette. RUD's 
contains information on over 350 major mutual funds 
including performance history, investment objective, 
load, IRA accounts, and size. 


Over 350 major funds 
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5 year ROI history 
Addresses 

Tandy 1000/1200/3000 
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Rapid search 
and retrieval 


Disk based 
help files 
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32 page manual 
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The word “the” appears in this article about 280 times. 
“Тһе” with a leading and trailing space takes up five bytes 
for every occurrence. Is there some way to encode this into 
a single byte or perhaps two bytes? When encoded into two 
bytes, 840 bytes would be saved, representing about 3.5 
percent of the total bytes used. 

One approach is to build a table of the commonly used 
words in a file. Each word is then assigned a single- or 
double-byte code value. These code values are used in place 
of the word, saving a great deal of space. This is the method 
used in Microsoft BASIC, which “tokenizes” the BASIC 
statements into (generally) one-byte codes to dramatically 
reduce storage requirements of BASIC programs. 

In an early computer book, Digital Computer Primer 
(McGraw Hill, 1959), Dr. E. M. McCormick, now at 
California State University, Fullerton, did an interesting 
analysis on this topic. His entire book was represented on 
punched cards! Analysis of the 57,936 words in the book 
showed the most frequent 15 words used (the, of, a, in, is, 
to, and, be, this, for, are, or, it, as, and computer) were 
repeated from about 500 to 4,500 times. If these words alone 
were encoded into two bytes, the savings would be 47,871 
bytes or roughly 13 percent of the disk storage. 

If the 3,128 most common words were encoded in this 
fashion, about a 34 percent reduction in space could be 
accomplished. This suggests that an encoding by letter 
frequency and word frequency results in a space compres- 
sion of about 47 percent, reducing text disk files to about 
half of their original size. Even with cheap memory and disk 
storage, this is a significant amount. 

We'll show you what we came up with in the second part 
of this interesting problem next month. [PCM] 








Submitting Material To PCM 


Contributions to PCM are welcome from everyone. 
We like to run a variety of programs that will be useful / 
helpful/fun for other Tandy Portable and MS-DOS 
computer owners. We now support the Tandy portable 
models 100, 200 and 600 and the Tandy 1000, 1200, 2000 
and 3000 MS-DOS computers. 

Program submissions must be on tape or disk, and it 
is best to make several saves, at least one of them in 
ASCII format. We're sorry, but we do not have time to 
key in programs. All programs should be supported by 
some editorial commentary explaining how the program 
works. Generally, we're much more interested in how 
your submission works and runs than how you developed 
it. Programs should be learning experiences. 

Pay for submissions is based on a number of criteria. 
The rate of remuneration will be established and agreed 
upon prior to publication. 

For the benefit of those who wish more detailed 
information on making submissions, please send an 
SASE to: Submissions Editor, PCM, The Falsoft 
Building, P.O. Box 385, Prospect, KY 40059. We will 
send you comprehensive guidelines. 

Please do not submit programs or articles currently 
submitted to another publication. 

If you feel qualified to review software and/or 
hardware products for computers covered in PCM, send 
us your name, address and phone number; we will send 
you a questionnaire form and a copy of our reviewer 
guidelines. 
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Programmer's 
Toolkit: ‘Nuts and 


Bolts’ for 
Programming 


Software 1000/1200/2000/3000 





An electrician needs a toolkit to do 
his job. Programmers need toolkits too. 
The tools of a programmer’s trade are 
interpreters, compilers, code creation 
tools and special utilities to help debug 
and document his works of art. The 
most common utilities needed are 
source deck editing, listing and cross- 
reference tools. For those who compile 
BASIC programs, it’s helpful to have a 
tool to remove unnecessary line 
numbers. Removal of these unnecessary 
lines reduces code bulk and makes 
following the logic easier. 

The BASIC Programmer’s Toolkit 
Version 1.10 provides three of these 
tools, plus a fourth on one non- 
protected diskette. The fourth tool is a 
line number re-inserter for compiled 
BASIC source decks. Each tool is a 
separate program. The utilities are 
advertised to work on Tandy 1000, 
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1200, 2000 and 3000 computers. 


Lister — A Program Lister 

Have you ever LLISTed a program, 
separated and punched the listing, 
inserted it into a binder, and discovered 
the three hole punches removed parts of 
line numbers, some lines of coding were 
printed on the perforations and ended 
up half on one page and half on the 
next, the pages were unnumbered and 
the program name didn’t appear any- 
where? 

Lister solves these problems by allow- 
ing you to obtain a listing with specified 
margins, blank lines at the bottom of 
the page and single or multiple line 
spacings. It can also list many programs 
in one program run. A final feature is 
the ability to list selected pages. Pro- 
grams must be in ASCII format for 
Lister to function. 

Unfortunately, the program did not 
work with my Radio Shack DMP-120 
printer. The program first sent some 
kind of control code that put my printer 























іп the graphics mode. АП subsequent 
lines were blank, except the form feed 
advanced the printer one line. A call to 
the author revealed that the program 
was tested on numerous printers and 
worked successfully. However, most of 
the printers tested were Epson- 
compatible. The manual says nothing 
about compatible printer types. 

I was able to get a printout by switch- 
ing off the printer and quickly switching 
it on when the program started to run. 
This chops off the title line and first 
page number. Next, my printer indented 
correctly but printed a character at the 
front of each line, which means “I don't 
understand the character you sent." 
There is apparently another control 
code sent at the beginning of each line. 
I later tested this program with an 
Epson printer and it functioned prop- 
erly. The author has agreed to fix these 
bugs to permit future operation with a 
wider variety of printers. 

Documentation is adequate and al- 
most unnecessary. The program leads 
the user through the required input. 


Crossref — A Cross-Reference Tool 

The critics of BASIC say "spaghetti 
code" whenever they find fault. It would 
be nice to reply, *Nonsense, I know 
where every GOTO goes to and on what 
lines all my variables appear," but you'd 
stay up several nights producing such a 
variable and line number cross- 
reference. Obtaining this cross- 
reference documentation is a job for a 
computer. Fortunately, programs exist 
that can untangle spaghetti code and 
produce this useful information. 

Crossref is the Toolkit's utility pro- 
gram that performs this task. It also 
permits a listing of the program. Both 
types of output can only go to the 
printer. The program to be cross- 
referenced must be in ASCII format. 
Up to 10 programs may be cross- 
referenced in one run. 

First, I ran a small program through 
Crossref. It worked fine. Each line 
number referenced by a GOTO ог GOSUB 
is printed, followed by a listing of lines 
that called it. Next, each variable is 
printed and followed by the lines in 
which it appears. 

After this preliminary test, a 600-line 
BASIC program was run through Cross- 
ref to perform an acid test. The results 
were not too good. The program was 
not able to properly construct a variable 
cross-reference listing. Variables that 
contained BASIC reserve words con- 
fused the program. For example, the 


variable CL INE was listed under ‘C’. The 
program thought the LINE portion was 
a BASIC command. This type of problem 
can easily occur when one uses BASIC 
string functions to decode a line. 

One must also build in the logic to 
determine what constitutes a variable 
and what constitutes a BASIC command. 
For GW-BASIC, a variable can be more 
than 100 characters long. It is the spaces 
that delineate variables. Other BASICs 
(e.g., Microsoft BASIC as implemented 
on the Tandy Color Computer) only 
allow up to two characters per variable 
name. Spaces are not needed. There- 
fore, the logic to recognize a variable 
must be different for different imple- 
mentations of BASIC. Discussions with 
the author revealed that this program 
was not originally written for GW-BASIC. 

The list option of Crossref worked 
reasonably well. I did have a few minor 
problems. Lines where tabs have been 
inserted to space the coding inward 
confused the program. Extra blank 
lines were printed. The pagination was 
confused from there on. I was not able 
to break out of the program during a 
listing. 

Documentation was sufficient and 
not really necessary. The program asks 
for all the needed data. 

The program author agreed that 
these bugs would be fixed in a future 
version. 


Number and Replace — Line Number 
Deletion and Insertion Utilities 

These two utilities are aimed at the 
BASIC programmer who compiles pro- 
grams. BASIC compilers produce faster 
running code than the BASIC interpreter 
supplied with most PCs. Generally, the 
compilers only need line numbers if a 
line is the object of a GOTO or GOSUB. 
Removal of the unnecessary lines pro- 
duces smaller source and object code. It 
also improves readability. These codes 
would generally be used in the following 
scenario. 

A program is first written in inter- 
preted BASIC. (In my own experience 
debug and program development is 
three to 100 times faster when working 
with an interpreter.) Before compila- 
tion, the program is run through 
Number and unnecessary line numbers 
are removed. The code is then compiled. 
If all goes well, the compiled program 
runs successfully. If sometime in the 
future the programmer wants to add 
something else or change a large portion 
of the coding, he could directly edit the 
source deck and go through successive 


compilations and program runs to 
debug the coding. 

The Replace code gives the pro- 
grammer another more efficient way to 
program and debug the changes. If the 
programmer first runs his code through 
Replace, it reinserts line numbers. The 
resultant code then functions with the 
BASIC interpreter. This later course 
usually speeds up program alteration 
and debugging. Note: Replace does not 
reproduce the original line numbers, so 
all old cross-reference listings would not 
apply. 

The Number code could also be 
useful to those who only program in 
interpreted BASIC. I found it was much 
easier to follow program logic flow 
without all the unneeded line numbers. 
Of course, you could not run the result- 
ant code with the interpreter. 

To test these two codes, both the 
simple test problem and the 600 line 
problem were used. First, the programs 
were run through Number to remove 
unreferenced line numbers. Then the 
output from Number was entered 
through Replace. The source decks 
coming from Number were then run in 
BASIC and produced correct results. 
Both utilities worked flawlessly. 

Documentation was sufficent and not 
really necessary. 


Conclusions 

The cost of the BASIC Programmer 5 
Toolkit is moderate. It functions about 
as well as one can expect from a $10 
code package — assuming the author 
fixes the bugs. Crossref is not compet- 
itive. There exist a number of public 
domain programs that produce cross- 
reference listings with much more detail 
— where all constants, strings and 
BASIC reserve words also appear. More 
expensive cross-reference tools even 
point out where a variable is defined (set 
to a value). Personally, I found it a pain 
to have to convert a code from BASIC 
tokenized form to ASCII before using 
Lister and Crossref. Number and Re- 
place function flawlessly. Typically, 
compilers use ASCII code input, there- 
fore there are no added steps required 
for use of Number and Replace. 

Should you buy them? It depends. If 
you use interpreted BASIC only, then 
shop elsewhere. If you need all four 
tools, the Toolkit is a reasonably priced 
package. 


(MVP Software, 1035 Dallas SE, Grand 
Rapids, MI 49507, $39.95) 


— Brian H. Alsop 
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"Every once іп awhile there ís a software product 


that gives you faith in the future of software." 


March-86 Al TRENDS review of AI:TYPIST 








AI:TYPIST 1.16 
The only word processing program with a REAL real-time spell checker 
that highlights any errors you make... without that annoying “BEEP”! 


Al: Typist revision 1.16 contains all the 
features you need in a word processing 
program. Margin & tabs, cut & paste, 
search and replace, automatic para- 
graph reformatting, bold, underline 
and center text. 


Κο checkers i ο But a truly unique feature of Al: Typist 
is the real-time spell checker. If you make 
s ντα Ween evens занона ВАГТ? a typing or spelling error Al: Typist 


will point it out the instant you touch 
the wrong key, highlighting it on the 
i screen. No annoying “BEEP”. You can 
жағын A Бу Жу. correct it now or later, and if you realty 
want to be “ΒΕΕΡΕΡ” at, it'll do that too. 
Al:Typist, if you make a mistake, 
it won't tell the world. 





SPECIAL OFFER! а 
$69 95 1-800-547-3000 Dept. 222 


In Oregon or outside the U 


Order AI: Typist now and save $30.00 ρουμ» 

AI: Typist has a full 30 day money back AI Typist runs on IBM ™ and compatible FX 
guarantee and is not copy protected with 256KB and DOS 2.0 or later 

List price $99.95. Offer expires 7-31-86 














Accessory 100/200 


Power-100 
and Power-200 
Keeps Your 
Portable Running 


The Power-100 and Power-200 re- 
chargeable battery packs from 
A.R.M.S. Computer Products are a 
practical alternative to expensive AA 
alkaline batteries for your Model 100, 
Model 200, and various other 6-volt 
peripheral devices. 

The Power-100 weighs five ounces 
and is % inch in diameter. The Power- 
200 weighs seven ounces and is % inch 
in diameter. Both battery packs are 10 
inches long. 

The Power-100 will provide a Model 
100 with 10 hours of power and a Model 
200 with eight hours of power. The 
Power-200 has 33 percent more battery 
life than the Power-100 and will provide 
a Model 100 with 13 hours of power and 
a Model 200 with 11 hours of power. 





Both packs easily attach to the back 
of the computer with self-adhesive 
velcro. The computer fits into the 
original carrying case with the battery 
pack attached. 

The batteries connect to the compu- 
ter where the AC adapter normally 
connects, The standard AC adapter 
which powers your computer is used to 
recharge the battery packs and they can 
be recharged while you are using the 
computer thanks to a separate female 
connector built into the battery pack. 
This means no down time while charg- 
ing. A 50 percent charge takes about 
four hours, while a full charge requires 
16 hours. Of course, a 100 percent 
charge cannot be reached if the batteries 
are charged while the computer is being 
used. 


(A.R.M.S. Computer Products and Servi- 
ces, 12131 Old Buckingham Road, Midlo- 
thian, VA 23113, (804) 794-6675, Power- 
100: $39.95, Power-200: $49.95, shipping is 
included.) 


— Chris Wehner 
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Turbo Pascal 3.0: 


Even Faster and 
Better 


If you're accustomed to program- 
ming in BASIC and have shied away 
from making the transition to PASCAL, 
it's understandable. Despite its highly- 
touted structured environment and 
increased program execution speed, 
standard PASCAL lacks the rich and 
diverse repertoire of functions one finds 
in GW-BASIC. 

The object code produced by PASCAL 
compilers, though it runs faster than 
BASIC programs, is usually not as fast 
as object code produced by assembly 
language or C. Hence, for years, if I 
absolutely needed fast program execu- 
tion, 1 would resort to assembly lan- 
guage and/or C. If speed was not that 
important and I wanted to complete a 
software project as soon as possible, 
there was always the old standby, 
BASIC. 


*,,. The best software product of its kind, that 


І have come in contact with." 


Computer Language Magazine 


“Рүе found the best in CCSM...fast in development and 
fast in execution...no data-typing problems, no concerns for 
program size, no concerns for file or device opens..." п.р. Ashworth, Ph.D. 


“...5 years in Basic, Pascal, C, dBase, and Dataflex...| have 
never worked with a language/programming environment 
as responsive, easy to use and as powerful as 
COMP Computing Standard MUMPS” = к. wayne, мо, Ph.D. 


Solve your database problems with CCSM, the 





Database Language. It comes with a 250 page manual, to 
lead you step-by-step through this versatile and easy 

to learn language. Included is a 100 page Introduction 
to MUMPS, presented in an easy-to-follow format. 


These Options Will Give You 
an Even Faster Start! 


“Cookbook of MUMPS" 180 page manual with 
accompanying disk. Includes dozens of fully documented 
routines and utilities, with examples of controlling output 
and display, global design hints, and mathematical 
functions. RECOMMENDED 


Toolkit I: Pull-down and pop-up menus, pop-up 
calculator, general-purpose menu driver, screen planning 
utilities, pop-up notepad, standardized input handler, 
and demonstration software. VERY USEFUL 


Multi-tasking, Too! Run multiple concurrent back- 
ground processes for data searches, report generation, etc. 


Also Available *Multi-User *Graphics 


Equipment: IBM-PC, AT, XT and most compatibles including those by Tandy, Compaq, Texas Instruments, 
Sperry, AT&T, Kaypro and others. Memory: Single User: 128K; Multi-User: 256K and up 


οποίον 1-800-257-8052 


if you prefer, order by mail Please send me the following... 


Single User disk and operations manual __ m n 
MGlobal "Cookbook of MUMPS" (includes disk) — $24.85 
1601 Westheimer, Suite 201 SPECIAL Single user & "Cookbook" _ es. 
Houston, TX 77006 


In Texas 713-529-2576 


Multi-tasking. 9149.95 
Programmer's Toolkit! $49.95 
Graphics option 49.95 
Multi-user 5450.00 
MacMUMPS (Macintosh version). 989.95 
shipping and handling $3.00 
Texas residents add 6 1/896 sales tax 


VISA... МС. AMEX expires... / 


card no. 


Disks are non-copy-protected 


day phone 
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This situation changed when Borland 
International released Version 2.0 of 
Turbo PASCAL. This venerated compiler 
is the most popular PASCAL for IBM PC 
compatible and CP/M computers. 
Turbo PASCAL 2.0 required less memory 
than other PASCALs, took less time 
compiling, produced programs that ran 
like the proverbial jack rabbit, had a list 
of functions comparable to the best 
advanced BASIC interpreters and cost 
$49.95! 


Now there is Turbo PASCAL 3.0. 

First, Borland has improved its pro- 
duct so the program object code it 
creates is even faster. Speeds can actu- 
ally approach those of hand-assembled 
machine code. For instance, it took 
hours to sort 1,045 records of 117 bytes 
each using a BASIC sort program on my 
Tandy 1200HD. The same algorithm 
written in Turbo PASCAL took less than 
one minute to sort the same file. 

Next, they added more instructions 
to the language, most noticeably in the 
graphics area. But they still weren't 
content implementing PASCAL equiva- 
lents of many of GW-BASIC graphics 
statements (CIRCLE, GET, PUT, etc.). 


YOU ALREADY HAVE 
HALF OF THE BEST 
WORD PROCESSING 
μιας IN THE WORLD 


more, your MultiMate, 
Display Write, WordStar, pfs: WRITE, 
VolksWriter, Writing Assistant or other WP 


They threw in the convenient "turtle" 
graphics instructions one normally 
finds in LOGO for good measure. 

There are all kinds of string and 
screen output functions that evidently 
exist to facilitate the development of 
word processors and/or text editor 
software. Writing a word processing 
program in Turbo PASCAL would be 
much easier than doing so with BASIC 
or another PASCAL. Two of the screen 
output statements are: InsLine, which 
moves lines (beginning with the line the 
cursor is on and ending at the bottom 
of the screen) down one line, leaving a 
blank line at the cursor position; the 
opposite function, DelLine, which 
deletes the line containing the cursor, 
then moves all the lines below the cursor 
up one line. 

Turbo PASCAL comes with a program 
editor. The editor is a WordStar work- 
alike. Users who do a lot of word 
processing with WordStar will feel right 
at home with this editor. The great thing 
about the editor is that it’s interactive, 
that is, should the compiler find an 
error, it not only informs the user what 
and where the error is, but automati- 
cally puts the user back into the editor 


Appears 
access. 


images 
hard disk. 


subdirectories. 





at the problem point. 

Unlike Microsoft's MS-PASCAL, 
Turbo PASCAL is a one-step compiler. 
No linking is required, making it much 
easier to use, especially for the novice. 
It also creates more compact code than 
the Microsoft product, which results in 
the faster run times mentioned earlier. 

The documentation included is a 
hefty 376 pages. The author assumes the 
reader has some prior knowledge of 
PASCAL, otherwise, the material is 
presented in a fairly straightforward 
manner. 

Some small sample programs are 
included on the one disk that comes in 
the package. They're not very sophisti- 
cated and really don't do the compiler 
justice. Perhaps I’m being too harsh. 
After all, they were thrown in for free. 

There are far too many features in 
Turbo PASCAL 3.0 to describe here. But 
at only $20 more than Version 2.0, it's 
a steal. 

Alas, poor BASIC, I knew it well. 


(Borland International, 4585 Scotts Valley 
Drive, Scotts Valley, CA 95066, $69.95) 


— Rick Boozer 


For Your MSDOS Computer 
Tandy 1000/1200/2000/3000 and PCs 


RAMDISK 


Use spare memory to simulate one or more super—fast 
disks. Any size. 
to programs as 
Highly efficient, 
Includes program to install and change RAMDISK size, 
and RAMDISK Ι/Ο access report. 


Greatly speed up existing applications. 


a disk, but gives instant 


compact, and thoroughly tested. 


FULLBACK 


A Perfect File Backup System !!! 
Finally, an easy to use backup program that keeps exact 
8 of your files on backup floppies, se ie or 
Automatically κα 


Backup modified only, ог ALL files. 





Keeps perfectly organized backups — backup structure and 
file format are identical to original. Supports backup by 
date, multiple backup copies, large files (up to 32MB). 
Far superior to DOS BACKUP, easier to use, and much 
more reliable. Absolutely a MUST for hard disk users. 


HIP—POCKET HELPERS 0 


xi Hip—Pocket Helpers is а 
rf as e ili ra They 
PEE a slick Directory Tree, a sorted 5—across “directory 
display, a sophisticated keyboard substitution aid (only 5K 
of RAM), utilities to search through ALL directories for 
file names or even strings within a file, and much, much 
more. 29 utilities in all. Call or write for info. 
and performance you can’t find elsewhere. 

ALL ALPS Software is Fully Guaranteed !!! 


Full Customer Support on our Hotline — 303—687—1442 
Call or Write for our complete catalog of products. 


Software! can instantly | Le түгімен 
columns of text, automatically 


KE create outlines, ο. 


d scripts, footnotes?, The 


boxed copy | and lots more. It's fun with 


Powerlext 
1 Any other MS-DOS or ASCII WP Software F ORMA TTER 


2 On the same page or end of your document ` 
ТО ORDER, CALL OR WRITE: % BEAMAN PORTER, INC. 
417 HALSTEAD AVENUE 


HARRISON, NY 10528 
(800) 431-0007 
(914) 835-3156 IN NEW YORK 


Price 


"Add $5 for Shipping and Handling. 





S 
Road 2 


ALP 
1502 County 
Woodland Park, Сотоне 30866 


800—232—ALPS 


(Toll-Free) 
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Software 100 


Business Decisions 
Helps Take Care 
of Business 


A series of six software programs 
called Business Decisions have been 
packaged for the Model 100 by Tandy 
for the business and finance world. The 
programs cover a variety of business 
decisions including inventory replenish- 
ment, sequential decision analysis, 
financial ratios, break-even analyses, 
linear programming and pricing tables. 

The software requires a Model 100 
with at least 24K of memory, a cassette 
recorder and an optional printer. The 
programs are supplied on cassette and 
written in BASIC so backups may be 
made. The program uses an arrow 
display to allow the output from all the 
programs to go to the printer or display. 

The first program is the inventory 
replenishment analysis. It allows one to 
model the company’s ideal inventory 
levels, reorder levels and frequency of 
reorders for maximum savings. To run 
you need the following information: 
annual unit demand, product unit price, 
single order cost, unit holding cost, 
shortage costs, capacity of storage and 
maximum inventory capacity. The out- 
put shows the optimum order, optimum 
inventory, price per unit, holding cost, 
ordering frequency and limited capacity 
cost. This is a thoroughly thought out 
way of presenting all the information. 

The sequential decision tree analysis 
is a “what if” tree of events. If one thing 
happens, what is the end result? It really 
evaluates the probabilities involved in 
risk taking. An example of decision tree 
analysis would entail a scene as such: A 
factory decides to build a new ap- 
pliance. It will cost a certain amount to 
tool up, a certain amount to advertise, 
a certain amount to get rid of the 
material if it doesn’t sell. The probabil- 
ity of it selling at a price is some percent, 
the probability of another manufac- 
turer making it cheaper or better is a 
certain probability, along with the 
probability of the weather. All these 
items comprise a sequential tree. This 
program determines the overall success 
of each determinant and the project. 

The third program determines the 
financial ratios such as liquidity, lever- 
age, management and profitability. The 
liquidity ratio shows the company’s 
ability to pay its short term obligations. 
It is based upon the current assets and 





liabilities and inventory. The manage- 
ment ratios give information about the 
inventory turnover, average collection 
time, fixed asset turnover and total asset 
turnover. The program also calculates 
the net profit margin and return on 
assets after tax profits ratios. 

The break-even analysis uses the 
fixed costs, variable costs, unit price, 
maximum production and projected 
sales volumes to determine the break- 
even point. 

The most complicated program is the 
linear programming. You have the 
opportunity to enter production limits, 
labor costs and labor volume for many 
different items, i.e., brands of colas. 
Each brand will have certain constraints 
and this software wades through the 
muddle and gives a mathematical equa- 
tion that is evaluated by the computer 
to determine, for instance, how much of 
each cola should be produced to give the 
maximum plant operating efficiency. 

The last program is the pricing table. 
If you have several items to sell and each 
has a verifiable cost, then it will calcu- 
late the selling price and possible dis- 
count prices if you can give quantity 
discount. It optimizes the price based 
upon selling volume and cost. 

The manual accompanying the pro- 
grams is excellent in the true Tandy 
fashion. The programs are explained 
along with what data is necessary, and 
examples with printouts of actual data 
are given. The formulas used in the 
programs are given in a separate chap- 
ter. All the information you need to be 
up and running is included. 

If your business needs require soft- 
ware included in this selection, I recom- 
mend you take a closer look at this latest 
offering from Tandy. 


(Tandy Corp., Fort Worth, TX 76102 


$39.95 
— Vincent Lord 


Software 1000/1200/3000 


Take a Different 
‘Approach’ with Solo 
Flight 


From this pilot’s viewpoint, the most 
exciting thing about Solo Flight is the 
letter from Bill Stealey, Micro Prose 
Software President, which is printed in 
the operation manual that comes with 
the software. The letter is written with 
the enthusiasm that pilots feel when 
they talk about flying. After the build- 
up, “most fun, most like flying, most 

















-Back Issue 
aes 


‘Back copies of many issue 


: et PCM are still availabl 


"All back i issues sell for th 


Wap: issue cover price 
addition, there is a $2 charg 
for the first issue plus . 


cents. for each. ‘additio 

issue shipped in the U.S 
When: possible, issues are 
shipped UPS. The postage 
cost in Canada and. Mexico. 
is $3 for the first issue. and 








М $1 for each additional i iss 


VISA, “MasterCard | and 
American Express accepted 
Kentucky residents. pleas 


add 5 percent state sales tax 





We do not bill and no COD. 
orders accepted. 0 
We suggest. you. 2. 


back issues you. want now 


while supplies last. 
То order, just: fill ‘out th 


form: on the next. page an 
| mail it with your paymen 


The dahel .. 
Prospect, KY 40059. 
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(О Please send me the following back 


PRICE 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 


$3.00 
$3.00 
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$3.00 
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$3.00 
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$3.00 
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$3.00 
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$3.00 


issues: 
(Payment must accompany back issue 
orders.) 
VOLUME 1 
NO. MO. YR. 
1 JULY  '83 PREMIER ISSUE 
2 AUG.  '83 
3 SEPT. '83 
4 OCT. '83 
5 NOV. '83 
6 DEC. 83 
7 JAN. 84 
8 FEB. '84 
9 MAR. '84 
10 APR. 84 LIMITED 
12 JUNE 84” 
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* Tandy 2000 coverage begins 
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TOTAL 
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tested by real pilots,” Solo Flight was 
a real let down. But, don't despair, 
flying buffs, this review has a happy 
ending. 

It started off like my kind of program: 
except for the fact that the manual does 
not include instructions specifically for 
the Tandy 1000, it appeared to be 
adequate and easy to follow. The pro- 
gram booted up with no special instal- 
lation steps. Choices to be made were 
menu driven and logical. Then the 
disappointments began. I reluctantly 
adjusted to the lack of numbers on the 
instruments, but never did get used to 
north on the compass looking like an 
‘H’ instead of an ‘N’. 

Тһе fact that I had to go from 20- 
degree flaps to 40-degree flaps in order 
to get to 0-degrees bothered me. Тһе 
VOR indications left much to be de- 
sired. The joystick response was incred- 
ibly slow. But it was the fixed horizon 
that robbed any chance at reality. 





you will have an instructor on board. 
Commands are written on the screen, or 
you can get rid of the instructor by 
simply typing I. The instructor feature 
is a good way to learn to fly your 
simulator airplane. 

Pilots should have no trouble under- 
standing the manual. I'm afraid anyone 
who does not have the knowledge of 
real flying will experience some diffi- 
culty with it. Also, in the program itself, 
the indications on the compass are *N', 
‘S’, ‘E’ and ‘W’. The on-board instructor 
gives the command to turn to 270- 
degrees. Assuming everyone knows the 
cardinal directions of the compass is 
taking a lot for granted. The manual 
and the instructor’s commands are in a 
pilot’s language, but the program is not 
what I would call a real pilot’s program. 

After flying around in a state the 
program goes to a map of that state and 
shows where you've been by plotting the 
path you have flown. I like this feature 





“If you are a certified pilot looking for a realistic 
flight simulator to play with on rainy days, this is 


not for you.” 





If you are a certified pilot looking for 
a realistic flight simulator to play with 
on rainy days, this is not for you. You 
get about as much of the “feel” of flying 
as you would watching a plane fly 
overhead. That’s largely because of the 
fixed horizon. When you are really in 
the pilot’s seat and those wheels leave 
the ground, that horizon begins to teeter 
back and forth. You turn left, it tilts 
right. You put the plane into a steep 
climb and the horizon disappears below 
you. 

In Solo Flight, you watch the plane 
you are controlling much as you would 
a remote-controlled plane. And in that 
comparison comes some complimen- 
tary evaluation. Forget that the publish- 
ers said anything about realism or the 
feel of flight and Solo Flight can be a 
fun flying game. 

After choosing Flying Practice, you 
get a choice of flying in six different 
states with varying difficulties in terrain 
and weather — Kansas being one of the 
easier states, and Colorado, one of the 
more difficult. Then you must choose 
the condition you want: clear weather, 
landing, windy, IFR or night. If you 
choose clear weather flying in Kansas, 


very much. There is a map for each state 
printed in the manual to assist you in 
planning a trip. Each state has two 
VORs (navigational aids) to help you 
get where you want to go. Airports are 
easy to spot; making an acceptable 
approach is a little more difficult. The 
landing practice option gives you the 
opportunity to perfect your approaches 
and touchdowns. In my opinion, a real 
plane is considerably easier to land. 

The other choice in the program is 
Flying Mail. Here’s where you can 
really have some fun and use the skills 
you've developed in Flying Practice. 
After choosing the state and one of four 
levels of difficulty, you load the mail 
and fuel. Points are scored based on the 
state you choose, time it takes to fly the 
route, the level of difficulty chosen and 
your skill in landing. Time between 
airports is shortened and this is a plus 
factor in making this game interesting. 
The game is challenging and fun, and as 
your skills improve, you can make it 
more challenging. 

Here again, however, is where the 
manual leaves something to be desired. 
In giving instructions for loading the 
mail and fuel, it reads “You may load 











up as much тай as you like. However, 
each bag adds to the weight of your 
plane and increases the difficulty of 
flying. One or two bags is recom- 
mended." It goes on to say, "Now 
choose the amount of fuel you want to 
carry. Remember fuel adds weight. The 
more weight the more sluggishly the 
aircraft responds. On a hot day, at high 
altitudes, in Colorado you may not be 
able to get off the ground!" 

While a real pilot understands the 
importance of weight and balance, I 
doubt if a novice would understand the 
implications of these instructions. If the 
player takes time to consult the "Spec- 
ifications and Performance" chart, he'll 
find his fuel capacity is 24 gallons, but 
the mail game allows him to load 64 
gallons of fuel. This is somewhat con- 
fusing. There is no mention of long- 
range tanks or a different aircraft for the 
mail game. 

With 64 gallons of fuel and six mail 
bags, I was about double the maximum 
gross weight of the aircraft. While 
unable to lift off at Aspen, Colorado, I 
did make a successful takeoff at Wi- 





“Ав your skills 
improve, you can 
choose greater levels 
of difficulty in several 
ways. It should take 
a long time to really 
become a master at 
this game." 





chita, Kansas using 20-degree flaps. 1 
climbed through the 10,000 feet over- 
cast, and experienced no real problem 
until I began an extended, 75-degree 
power climb that caused my engine to 
overheat. І came back down through 
the overcast, located an airport at 
Lyons, Kansas, and made my approach 
to land. 

In spite of the inconsistencies in the 
manual and the game, I like the Flying 
Mail feature very much. A rewritten 
manual with more detail and a better 
explanation of some of the features of 
the program would be a great improve- 
ment. The thing that bothers me most 
about Solo Flight is the promotional 
material, which makes such a point of 
calling the Simulation realistic. The 
manual is written with an obvious 


knowledge of flying and is realistic in 
what it says, but the program itself lacks 
that realism. 

Solo Flight would have scored much 
higher with me if its publishers had 
allowed it to stand on its own. It is fun 
and challenging; if you are a flying buff, 
it’s a program you'd have a hard time 
becoming bored with. As your skills 
improve, you can choose greater levels 
of difficulty in several ways. It should 
take a long time to really become a 
master at this game. At $34.95 I would 
consider it a pretty good buy. 


(Micro Prose Simulation Software, 120 
Lakefront Drive, Hunt Valley, MD 21030, 
301-667-1151, $34.95) 


— Irma S. Canfield 
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Shorthand Goes 
High-Tech with 
Productivity Plus 


Although there is some indication 
programs that perform somewhat sim- 
ilar tasks may appear on the market 
soon, Productivity Plus has the advan- 
tage of being here first. Besides, since it 
is a superior program it stands to hold 
its own with any competition, if not to 
beat it out altogether. 

Boiling it down to the simplest terms, 
PRD* (as its creators call it) is an easy- 
to-use, menu-driven program that ena- 
bles you to use alphabetical shorthand 
on the computer keyboard. You can use 
the basic word list provided with the 
program, add to the list or create per- 
sonalized short form/long form word 
lists that, when invoked, automatically 
bring to the screen almost any intended 
long form you may choose to create. 
The personalized lists can be temporary 
or permanent, they may be created 
while in the midst of writing text, or 
separately from a list creation provision 
in the program that is easily invoked as 
part of the main menu. 

It works like this: Suppose there is a 
phrase you use often, such as “for your 
information." This phrase is one of 
those included in the basic list of short 
form/long form combinations. The 
letters “fyi” constitute its short form. 
Suppose you are writing a letter in 
which you wish to say, “Тһе enclosed 
press kit is for your information." Using 








PRD*, all you need to type is “Тһе 
enclosed press kit is fyi." To shorten 
things further, you could arrange it so 
all you have to type is “thpe z fyi”; 
“thpc” standing for “Тһе enclosed press 
kit" and ‘z’ for “is.” If you sent out press 
kits frequently, the saving in keystrokes 
is obvious. 

Pressing the period, or any other 
delimiter for that matter, causes each of 
the long forms of “їһрс z” and “fyi” to 
print out on the screen at the touch of 
a single key. Therein lies the principle 
advantage of PRD*. Once loaded, it 
resides in RAM. When it is toggled on, 
any delimiter causes any long form that 
is on a word list to print out on the 
screen. Word lists may be used by 
themselves or merged with other word 
lists that are added to the program disk 
according your personal needs. 

The lists that come with the basic 
program contain a substantial number 
of commonly used words and phrases. 
One of the handiest parts is the com- 
plete list of codes for all 50 states. To 
print out the full name of any state when 
writing an address, just type the two- 
letter postal abbreviation in lowercase, 
press the delimiter you require and the 
name of the state prints out properly 
capitalized. A number of major cities 
are also on the list. 

The on-screen tutorial is excellent 
and the manual is not only unique but 
one of the best I have seen in terms of 
clarity, simplicity and ease of under- 
standing. It is a ring-bound steno pad 
in size and shape, but it has a folding 
base that allows you to stand it up 
alongside your monitor — a big help 
when familiarizing yourself with its 
details and even more so when you want 
to have the word lists handy for refer- 
ence while you work. There is also 
ample space on every page to make your 
own notes. 

PRD+ was designed for the busy user 
who wishes to save time and does not 
want to be bothered with a lengthy 
learning process. Installation is simple 
and the program can be customized for 
most popular word processors. It can be 
used with dBASE, Lotus and virtually 
any database program or spreadsheet; 
it can be used to store complex mathe- 
matical formulae as well as text. The 
latest Version 1.11 includes a macro 
storage feature. Short forms can be as 
short as a single character (though this 
is not recommended) and long forms up 
to 240 characters. When you can store 
a frequently used phone number or 
address, for example, and call it up by 
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typing three characters and a space, you 
wonder how you ever did without such 
a timesaver. 

On the subject of timesaving, there is 
also a feature that enables you to check 
on yourself and see how many key- 
strokes you have saved in the creation 
of any given document. 

PR D+ is not copy-protected, it takes 
up only 64K of RAM and requires MS- 
DOS 2.0 or better on any IBM PC, XT/ 
AT and compatibles. Interestingly 
enough, when we tested PRD+ we 
found that on the Tandy 1000 it causes 
the keyboard to be slightly redefined: 
the cursor keys assume the positions 
they normally occupy on IBM-type 
keyboards, the ‘2’, ‘4’, 6” and “8” keys 
respectively. The “7” key on the numeric 
keypad becomes the HOME key and, 
when unshifted, the PRINT key becomes 
an asterisk. The left cursor becomes a 
backslash, the right cursor a plus sign, 
the up cursor an inverted apostrophe, 
the down cursor a dash, and zero on the 
numeric keypad, INSERT. Though it 
sounds confusing at first, one user who 
tested the program said it was essen- 
tially the same as using a program like 
Prokey or Superkey, and that the ad- 





vantages of PRD+ more than outweigh 
the minor matter of getting accustomed 
to the slight keyboard redefinition. 

More over, in some instances, it 
proves to be a decided advantage. The 
word processor, Office Writer, an excel- 
lent Wang emulator, cannot be used on 
the Tandy 1000 because it requires the 
‘+’ key at the right side of the numeric 
keypad to be used to enter commands. 
When redefined by PRD+, the former 
right cursor key becomes a ‘+’, allowing 
Officer Writer to be run. With the 
database /nfoScope, the same key be- 
comes a power key that speeds up 
cursor movements under certain desired 
circumstances, another advantage. 

In short, Productivity Plus is a supe- 
rior piece of software on all counts. It 
does precisely what it is supposed to do; 
it is easy to learn. Even the most inex- 
perienced user can learn it in about 30 
minutes. It is a secretary’s dream, 
especially those who are familiar with 
alphabetical shorthand such as speed- 
writing and stenoscript. It is ideal for 
the office that uses PCs. Organizations 
using specialized terminology will find 
PRD+ a boon, especially in this age 
when even the most educated computer 





ШІ MARYMAC коте ке 
800-231-3680 


users often spell badly. Once a fre- 
quently misspelled word is given a 
simple short form and saved on a word 
list, it will never be misspelled again. 
That in itself can be worth the price of 
admission. 


(Productivity Software International, Inc., 
1220 Broadway, New York, NY 10001, 212- 
967-0947, $195) 


— Bernhardt J. Hurwood 


Software 1000/1200/2000/3000 





Word Finder: The 
Thesaurus Goes 
High-Tech 


You're pounding away at your word 
processor and suddenly something 
doesn't seem right. In the middle of the 
sentence you just typed is a word, and 
it isn't the word you really want to use. 
The “right” word is on the tip of your 
tongue. What now? Off of the bookshelf 





Radio Shack? Tandy® 





WORD PROCESSING 
TRAINING GUIDE for 


IBM-PC and TRS-80 








EPSON PRINTERS 


People yeu Trust to give you the very best! 


* Lowest 
Discount 
Prices 


* Reliable 
Service 


iW Quality 
Products 


“World's largest independent 
authorized computer Dealer" 
22511 Katy Fwy., Katy (Houston) Texas 77450 


(713) 292-0747 Telex 774132 
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Become an expert in the advanced word processing 
techniques in just a few hours. Develop skills that can 
be applied to any of the best selling word processors, 
no matter which system you decide to buy. Includes 
program disk so you learn quickly by doing. The train- 
ing guide and training program disk (a $50.00 value) 
will be sent to you upon receipt of this filled out coupon 
without any obligation or cost, *except shipping and 
handling. Offer good for a limited time only. 
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LeScript Word Processing Systems 
Р.О. Box 361136, Melbourne, FL 32936 
(or call 1-305-259-9397) 

Type of computer system: 
O IBM-PC/XT/AT /jr compatible 

(includes Tandy 2000) 


O TRS-80 1/3/4/4P 
O TRS-80 4/4P CP/M 
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City State Zip 





Telephone 


*Please enclose $2.00 to cover shipping and handling. 
(Computer names are tradenames and/or trademarks of their respective i 
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comes the thesaurus. 

Now wait a minute. Don't you feel a 
little inefficient? If this was a typewriter 
it might be different. But this is a high- 
powered word processor. Reaching to 
the bookshelf is like reaching back to 
the century of Gutenberg, a little like 
grabbing a slide rule in the middle of 
your spreadsheet session. There's got to 
be a better way! 

With Word Finder from Writing 
Consultants there is! Billed as a syn- 
onym finder, this computerized thesau- 
rus is memory resident. Simply place 


program performed flawlessly on a 
Tandy 1200HD running WordStar. 
My only (minor) criticism of Word 
Finder concerns the documentation. 
The package І received included a 
documentation booklet from a previous 
version, together with a separate update 
booklet including revisions keyed to the 
original. Hopefully, the changes will 
soon be incorporated into revised doc- 
umentation. In spite of this, the docu- 
mentation led me easily through the 
installation procedure, which modifies 
the executable file to be compatible with 





"Word Finder is invisible until summoned. The 
window that appears upon using the command key 
leaves your text visible on the screen with the target 


word highlighted.” 





the cursor anywhere on the offending 
word and press the command key. The 
Word Finder window appears display- 
ing the word followed by a list of 
synonyms. If the “right” word is one of 
those displayed, simply move the cursor 
in the window to that word, press 
RETURN and you are returned to your 
word processor with the new word in 
place. 

Word Finder (Version 3.2) lists “РС 
compatible" as the only hardware re- 
quirement. On a dual floppy system, 
users are advised to create a disk for 


Drive A with the essential files from. 


their word processor, together with the 
two essential Word Finder files (the 
executable file and the synonym file). In 
Drive B goes a disk with their text files. 
The synonym file in this case includes 
90,000 synonyms. 

For the hard disk system user, the 
program includes an expanded syn- 
onym file on a second diskette with over 
220,000 synonyms. These files are not 
copy protected, allowing location any- 
where on the hard disk. The full power, 
speed and convenience of Word Finder 
is achieved with a hard disk system. The 
documentation lists 23 of the most 
popular word processors as being com- 
patible with Word Finder, with a sug- 
gestion to try installation with others 
not listed. Prospective purchasers 
should probably contact Writing Con- 
sultants regarding compatibility. The 


the particular word processor. 

Word Finder must be loaded prior to 
the word processor. Typing WF loads the 
program into memory and returns to 
DOS. The word processor can then be 
loaded, leaving Word Finder resident. 
A simple batch file can be created to 
simplify this process. Once into the 
word processor, the operation of Word 
Finder is very easy, eliminating the need 
to refer to documentation. 

Word Finder is invisible until sum- 
moned. The window that appears upon 
using the command key leaves your text 
visible on the screen with the target 
word highlighted. In the case of Word- 
Star, the window takes the place of the 
menu at the top of the screen. This 
feature allows you to view the word in 
context while deciding on a synonym. 

Synonyms are presented by part of 
speech (n=noun, v=verb, etc.). When a 
word has more than one meaning, 
synonyms for each meaning are 
grouped together. The different mean- 
ing groups are separated by semicolons. 
Long lists of synonyms may require 
multiple windows, accessed with PgUp 
and PgDn. If just the right word is not 
among those listed, but one seems closer 
to the mark, place the cursor on that 
word and press the command key for a 
list of its synomyms. This is a different 
list from the first. This process can be 
repeated to home in on the desired 
concept and find the precise word. 


Replacement of a word leaves the 
original form of capitalization and 
punctuation intact. If you decide your 
original word really is best, simply press 
escape to leave it intact. When the 
window disappears, you are returned to 
your word processor exactly where you 
were before calling Word Finder. 

If the target word is not in the pro- 


gram's dictionary, the window displays 


this message: The word was not 
found. Choose another шаға to 
look up. Included in the window are the 
30 words alphabetically closest to the 
target word. This feature may help you 
to zero in on that synonym. It also 
works well as a real-time spelling 
checker! Word Finder can be used 
without a word processor, if desired, 

I've always struggled when resorting 
to a thesaurus. It seems to take too long, 
and all too often I come away without 
a better word. Word Finder, by con- 
trast, is a breeze to use. The program 
provides easy access to an impressive 
number of alternative words (especially 
with the expanded synonym file avail- 
able to hard disk users) and should 
assist any writer. I highly recommend 
this program. 


(Writing Consultants, Techniplex Center, 
300 Main St., East Rochester, NY 14445, 
716-377-0130, $79.95) 


— Stanley Townsend 


Software 1000/1200 /3000 


Pro Disk is Truly 
User Friendly 


With so many software companies 
carelessly bandying about the term 
“user friendly,” many users have come 
to fear any claim made about friendli- 
ness. The Harvey Invisible Software 
Pro Disk package may restore our faith 
in the term. Here is a piece of software 
that is not only useful, but very user 
friendly. 

Harvey ProDisk is a memory resi- 
dent, windowed-menu system designed 
to make execution of programs simple 
and painless. Although the package 
comes with several other independent 
programs, the Menu system must be 
considered the heart of the ProDisk 
package. With ProDisk, the user can 
create menus that allow the execution 
of sophisticated command sequences or 
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programs with a one- ог two-stroke 
entry. 

When a menu (window) is on-screen, 
any application on the menu can be 
executed by entering the first letter of 
the selection, or by using the arrow keys 
to highlight the selection, then pressing 
ENTER. Even users thoroughly intimi- 
dated by the complex commands re- 
quired to operate under DOS should 
quickly find themselves at ease with 
ProDisk. Password protection is of- 
fered for each menu to prevent unwel- 
come users from accessing private 
information. 

Creation and editing of the menus is 





*The program claims 
to be compatible with 
other off-the-shelf 
software. I found no 
problems operating it 
with GEM, Sidekick, 
Turbo Lightning or 
any other memory 
resident programs . . ." 





not difficult at all. Pressing the F5 key 
brings up the creation screen. Making 
а new menu is a three-step process. First 
give the menu a name, then enter each 
selection and follow it with the com- 
mands needed to execute that choice. 

To change a menu entry, the F6 key 
is pressed. A submenu pops up, offering 
to edit either the selection, the menu, 
color or password. Once the choice is 
made, the new information is entered 
and overlays the old. Press F8 and the 
new menu becomes permanent. 

Menus can be called from other 
menus, forward or backward. As an 
example, suppose you had a menu 
called Main, from which all major 
submenus originated. To call Main 
from one of the other menus, you would 
include in the other menu a selection for 
“Exit to Main Menu." For the com- 
mand entry, you would type /М MRIN. 
Anytime the *E' is pressed while in this 
submenu, the user would be returned to 
Main menu. 

The program claims to be compatible 
with other off-the-shelf software. I 
found no problems operating it with 
GEM, Sidekick, Turbo Lightning or 
any other memory resident programs 
and I see no reason to doubt compat- 





ibility with other programs. 

A package of secondary utilities 
comes with ProDisk. These programs, 
HTime, HView, HPrompt and GF 
(Graphics Filter) are all well-written 
and perform useful tasks. 

H Time provides a unique view of a 
wristwatch on the screen with a current 
month calendar highlighting the current 
date. Other time/date related functions 
can be accessed as well, including such 
things as calculating the time between 
two dates. 

H View is a replacement for the DOS 
commands ТҮРЕ, PAUSE and MORE 
(filter). You may HView a file one page 
or one line at a time, paging backwards 
and forwards as you wish. 

The H Prompt is an alternative to the 
standard A> or C» prompt. It includes 
a rectangular box at the top of the 
screen with a full-width command line 
and the current directory. Once in- 
voked, it replaces the standard prompt 
whether or not the Pro Disk program is 
loaded. 

GF converts graphics characters to 


the character given as their parameter. 

Do I have anything negative at all to 
say about the package? Perhaps one 
minor thing. The documentation is two 
standard size, quick-reference sheets 
plus an on-disk tutor that can be printed 
out. The formatting is fine for on-screen 
help but is not, in my opinion, right for 
printing out. Perhaps a separate file for 
printing out, or preprinted documenta- 
tion would be better. Fortunately, the 
on-screen help and ease of program use 
make this a minor problem at most. 

If you are a hard disk user, and 
particularly if your business allows 
access by non-computer oriented peo- 
ple or you have private information to 
be made available only to certain indi- 
viduals, this program has a lot to offer. 
Overall, I heartily recommend it to 
readers of PCM and fellow Tandy MS- 
DOS users. 


(Harvey Invisible Software, P.O. Box 1863, 
Cape Coral, FL 33910, 800-231-0296, $90) 


— Leonard Hyre 





Software Review . . . 
Al:Typist — An 
Easy-to-Use Word 
Processor 


Гуе always liked programs that can 
be used right out of the box. The 
thought of wading through page after 
page of a manual and having to learn 
a lot of new commands and procedures 
has often given me second thoughts 
about purchasing new programs. А/- 
:Typist requires no previous experience 
to use, just spend a few minutes reading 
the introductory chapter and you’re 
ready to process words! I started using 
the program immediately and my 12- 
year-old daughter was able to type a 
paper for school with less than 10 
minutes of program orientation. 

The non-copy-protected program 
requires 256K RAM and DOS 2.x or 
higher. Features include; help screens, 
search and replace, cut and paste, 
document formatting, multiple printer 
support, advanced WordStar-like com- 
mands (just in case you don’t like the 
simple and effective menus), ASCII- 
and Typist-formatted file operations, 
and a lightning fast, memory resident 
spelling checker. 
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The main screen is the heart of the 
program, the top of the screen displays 
the document page, line, word count, 
column, percentage of 64K the docu- 
ment uses, the document name and 
insert or overwrite status. At the bottom 
of the screen there is a block display of 
menu functions for function keys FI 
through F8, and flags to indicate the 
status of the NUM LOCK and CAPS keys, 
and the automatic paragraph format 
status. 

Key designations are straightfor- 
ward; INSERT, DELETE, the arrow keys, 
HOME, NUM LOCK, CAPS, and BACK 
SPACE all work just like I expect them 
to. All special functions are activated : 
with the touch of one of the accurately- 
labeled function keys. FI is always the 
“help” key and produces on-line help 
screens from anywhere in the program. 
F9 deletes a line and Е10 inserts a line. 

F2 controls the “get/save” file func- 
tions and will insert a document at the 
cursor position or retrieve a file for 
editing. Files can be saved in A/:Typist 
format or ASCII format. F3 triggers the 
search and replace functions; words or 
phrases can be searched out and re- 
placed throughout the document. Cut 
and paste functions are controlled by 
F4; any block of text can be marked, 
removed, or moved to a new location. 
The features controlled by F5 allow 
rapid formatting of the document; 




















margins and tabs can be set, automatic 
paragraph adjustment can be toggled 
on and off, lines can be centered, areas 
can be marked for bold or underline 
printing and entire blocks can be refor- 
matted. 

The document printing menu (F6), 
supports 18 standard printers and two 
custom printers. The entire document 
can be printed or printing can be se- 
lected for one page at a time. There is 
a provision for double-spaced printing, 
selection of alternate printer ports and 
special characters embedded in the text. 

The spelling checker is activated or 
deactivated with F7. The warning beep 
can be turned off or on and the alternate 
dictionary is maintained using the *Add 
to Dic" and "Delete From Dic" func- 
tions (the main dictionary cannot be 
altered). There are provisions to spell 
check entire documents (any ASCII 
document can be checked) or simply 
find the next misspelling in the current 
document. The spell checker does not 
offer suggested spellings or automatic 
correction, it simply flags words that are 
not in the dictionaries. 

The documentation that comes with 
AI: Typist consists of a complete, accu- 
rate and easy to read manual with a 
compact quick reference card. А1- 
though well-done, the documentation is 
really redundant in light of the pro- 
gram's user-friendly construction and 
design. Fast and friendly customer 
service is available by calling (503) 246- 
1782. 

AI:Typist is not a replacement for the 
super-powered, high priced word pro- 
cessing programs. It does not support 
microjustification, automatic page 
numbering, on-screen page breaks, 
right justification, mail merging, varia- 
bles, or a fancy thesaurus. Only two 
special printer functions can be used at 
one time and documents are limited to 
64K (20-30 pages). 

AI:Typist is ideal for typing letters, 
memos, school reports, proposals and 
almost any short- to medium-length 
document with spell checking that 
occurs as fast as you can type. There аге 
no fancy commands to memorize or 
complex procedures to learn, and little 
or no computer expertise is required. 
For anyone interested in word process- 
ing at a reasonable price, AT: Typist is 
an excellent choice. 


(Airus, Inc., 10200 S.W. Nimbus Ave., Suite 
G-5, Portland, OR 97223, $99.95, 503-246- 
1782) 


— Bob Mills 


Software 1000/1200/3000 


Popcorn Desktop — 
Useful and 
Affordable 


Popcorn Writer is a small, fast word 
processor that uses codes familiar to 
anyone who has ever used WordStar. In 
my opinion this gives it three distinct 
uses. 

The beginner who needs a word 
processor, but can’t afford $300 and up 
for a full-featured product, will be 
grateful for having learned Writer when 
he needs to use an advanced text editor 
because most of the WordStar com- 
mands will already be familiar. 

The person who uses WordStar at 
work can afford this home editor and 
won't have to learn new commands. 

Third, I would recommend this to 
many small businesses because of a nice 


Popcorn Desktop is also RAM res- 
ident and contains a pocket-type Calcu- 
lator, an ASCII table, a Calendar (for 
viewing only), on-screen help and a 
Notepad. 

Interestingly, you can install all of 
these desktop functions at once, or 
either Notepad or Calculator alone, if 
you are short on space. 

Notepad is the interesting program. It 
uses WordStar-type commands and has 
lots of useful features; you can call up 
a directory of any disk drive. This 
program has all the usual editor fea- 
tures: Word Wrap, Saving, Printer 
Control Codes, Block Operations, 
Search and even Undelete, very similar 
to Popcorn Writer. 

It also has one terrific feature. Note- 
pad lets you block out any rectangle on 
the screen and import the information 
into Notepad. This means you can have 
a directory, help file or anything else 
shown on the screen available no matter 
what program is running. For anyone 
who fools around with BAT files, or 
otherwise jumps from program to pro- 





*The programs in Desktop and Misspeller's 
Dictionary can all be layered on the screen at once, 
and the windows they occupy can be moved 


around." 


added feature. Writer comes with an 
easy-to-use Mail List Merge feature for 
producing mailings. 

Writer has one feature missing on 
WordStar, а good Undelete command, 
but performs most other functions of 
advanced word processors. There is also 
a nice on-disk tutorial that introduces 
the beginner to this kind of word pro- 
cessor. 

The Popcorn Misspeller's Dictionary 
is just that, a dictionary, not a spelling 
checker. 

Misspeller lets you produce your own 
dictionaries and, since it is RAM resi- 
dent, it is available anytime the compu- 
ter is on. 

There are two sizes of dictionaries 
supplied in Misspeller that you can add 
to, or your word list can be completely 
separate. 

Why a dictionary when you can buy 
spelling checkers? First, you won't get 
a good spelling checker for this price 
and, second, you may only occasionally 
need to check the spelling of a word. By 
using a dictionary when needed instead 
of a checking program on every word 
you will save a lot of time. 





gram (like reviewers), this feature is 
great. This was a very easy review to 
write because I could refer to the oper- 
ating program while writing. 

The programs in Desktop and Mis- 
speller's Dictionary can all be layered 
on the screen at once, and the windows 
they occupy can be moved around (the 
program remembers where and returns 
to the new position the next time). 

You can move some screen data into 
Notepad, then write a note, check the 
spelling with Dictionary, look at the 
Calendar and then do some calcula- 
tions, with all programs onscreen at the 
same time. Each ESC key removes 
another window until you are back in 
MS-DOS. 

АП these programs come “prein- 
stalled," that is, you just load them and 
execute on many machines, but you can 
also custom-install the programs if you 
want to (or need to). They all require an 
MS-DOS computer with 128K of mem- 
ory, they support color or monochrome 
monitors, floppy or hard disks, and are 
not copy-protected. 

All three products come with short, 
clear documentation that will have 
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anyone using the software in minutes. 

These programs share one peculiarity 
— after invoking one of them and 
returning to MS-DOS, the next two 
keystrokes are ignored. This is due to 
the way Notepad captures data from the 
screen, and never posed a real problem 
to me once I discovered it was happen- 
ing. However, this doesn't happen when 
typing in the word processor. 


(Popcorn Software, P.O. Box 814, Tor- 
rance, CA 90508, Writer $69.96, Misspeller's 
Dictionary $29.95, Desktop $49.95) 


— John McCormick 


Book 1000/1200 


Learning BASIC For 
The Tandy 1000/ 
2000 — An Excellent 
Choice 


For those of us who have other Tandy 
computers, David Lien is a familiar 





name. He has written books and hand- 
books for the Model I, Model III, 
Model 4/4P and the Model 100. Now 
Tandy has enlisted his considerable 
talents to teach Tandy 1000/2000 BASIC 
to another group of computer owners. 

I think that Tandy has made an 
excellent choice. While Learning Basic 
For The Tandy 1000/2000 is designed 
and written for the beginning beginner, 
the writing style and presentation 
should hold the attention of even expe- 
rienced programmers. I have written a 
number of BASIC programs, but there 
were several times when I said to myself, 
“I didn't know that." 

When I say written for beginners, this 
book even tells you where the power 
switch is located for both models. It 
instructs the reader on entering time 
and date as requested by DOS at boot- 
up. This description includes telling the 
reader where on the keyboard to find 
the colon (:). Following that is a dia- 
gram of a floppy disk and a description 
of how to format the disk for use. 

In any book of this type, the layout 
is crucial to following the material. The 
text is in black ink and regular type. The 
lines to be typed in by the reader and 





the responses from the computer are 
printed in blue. This technique makes it 
much easier to figure out what you are 
supposed to type and how you should 
expect the computer to respond. Keys 
to be pressed (ENTER, CTRL, etc.) are 
printed in reverse blocks of white letters 
on black. Scattered throughout the text 
between solid horizontal lines are hints, 
reminders, expanded explanations and 
a few jokes. These are almost like 
footnotes, but they are in the text rather 
than at the bottom of the page. Finally, 
full-page cartoons occur from time to 
time to keep things lighthearted. 

The flow of the book is logical and 
each new chapter and example program 
is built well on what comes before. FOR- 
NEXT loops are very important and their 
explanation is particularly good. I will 
admit, however, to yawning a little in 
the chapter on precision. I think it was 
slight overkill in a beginners text, but if 
you make it through all the material, 
you will understand single and double 
precision better than most pro- 
grammers. PRINT USING print format- 
ting was also covered in great detail, but 
the examples seemed more useful to me. 
Arrays and even sorting are covered 
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EAGLE AIR SERVICES 


1501 East Chapman Avenue 
Suite 258 
Fullerton, California 92631 








EXPAND THE TANDY 20005 





OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost ... 
Add 640K of External RAM Memory to TANDY 2000’s® 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

ж Жж New Products Available Soon ж x 


896K 


(Send for catalog) 











cost: 


$495.00 for a 640K bytes of External 
RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-in Exchange option 
if you already use Tandy's 128K External 
Memory Board. 









for ordering 
and information call: 


Cerms:: Add 7.3% sales tax in Wash. 


(509) 627-5291 
Hours 9:00-5:00 PST 


We accept Check, MO, Visa, Mastercard 


Add $3-shipping/handling, $5 foreign. 








ENVISION DESIGNS 
1909 ORCHARD WAY * RICHLAND, WASHINGTON 99352 
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clearly including multidimensional 
arrays. Sequential data file use is cov- 
ered adequately, but random file hand- 
ling is not mentioned at all. This is no 
surprise since the book promises only 
sequential files. I liked chapter 49, *A 
Study of Obscurities." The explanation 
there of VARPTR is the only one I have 
ever understood. Chapter 51 is on 
debugging programs and contains tech- 
niques that are an absolute necessity for 
a beginner. 

Enough already. If you have a Tandy 
1000 or Tandy 2000 and want to learn 
how to use the BASIC that comes with 
it, this book is the one to buy. I would 
give it five stars out of five for doing the 
job it is designed to do. 

(Author: David A. Lien. Published by 
Compusoft Publishing. Radio Shack cat- 
alog no. 25-1500) 


— Potter Orr 





Hardware 1000 


А2 Joystick: 
Quality to Match the 
1000's 


All right, everyone knows the Tandy 
1000 is a business computer. After all, 
it is I-B-M (‘B’ as in Business) compat- 
ible and runs all those businessy pro- 
grams like WordStar, Lotus 1-2-3 and 
Harvard Total Project Manager; no- 
body pays a quarter to play these in an 
arcade. 

Well then, what are those two ports 
to the far right of the big red Reset 
button doing there? They are labeled 
“joystick.” It seems the designers of the 
1000 had more in mind than crunching 
numbers and processing words. It 
comes standard with color graphics (16 
colors no less), sound and the ability to 
control programs with a joystick. 

After an extended session of pushing 
numbers, it's nice to be able to make 
friends again with the computer (mine 
is named Fred). After a few minutes of 
concentration on nonbusiness plea- 
sures, I’m almost human again. While 
most programs have provisions for 
keyboard control via the arrow keys, 
some games, especially flight simulator 
types, just work better with a joystick. 

Which brings us to the A2D Joystick. 
Before obtaining the A2D unit, I had 
“borrowed” the sticks from my Color 
Computer. The advantage of the Color 


Computer sticks is that they are cheap, 
about $10 each. The disadvantages are 
that they break and bend. After a couple 
of good rounds they tend to develop an 
off-center wobble as the stalk bends 
where it is connected to the ball. These 
sticks also have only one button while 
certain applications require a two- 
button controller. They work, but a 
machine of the 1000's quality deserves 
better. 

Answering the need for a more 
rugged and accurate joystick is Cinsoft, 
the distributor of the A2D Joystick. The 
control mechanism is not the traditional 
stick on a ball (bale stick assembly), but 
an open gimbal mechanism like those 
used to control radio-guided model 
aircraft. This mechanism is the standard 





Software 1000/1200/2000/3000 


A Complete Family 
Health History 
with BDL Health 


BDL Health represents the consum- 
mate use of a home computer. It is a 
precursor of future computer use and is 
contained in a simple database. 

BDL Health keeps track of the im- 
portant facets of a family health pro- 
gram and requires only small and accu- 
rate input to do so. 

Bette Laswell, author ofthe program, 
says it was born out of necessity for her 
family. The Laswells have moved 
around the country and Ms. Laswell 
was frustrated by the lack of medical 
records that followed their migration. 
Material supplied by physicians was 
sometimes more sketchy than a new 
doctor would want. 

BDL Health works with 128K and 
one drive, but two drives or hard drive 
are very desirable. The program worked 
well on my 256K Tandy 1000. The 
menus and the instructions are very 
clear as is the documentation. 

Ms. Laswell displays a great sense of 
humor in her programming. For exam- 
ple, if the user fails to make a choice 
among eight courses of action in the 
opening menu, he is met by the terse on- 
screen comment, “Мегсу, Maude! 
We're just getting started and we're 
already arguing. I only know numbers 
here, specifically 1 to 8. Try again 
please." I found that much more com- 
forting than the usual error message. 

BDL Homeware's goal is to create 








for reliability and accuracy in R/C 
flying, therefore the control it offers for 
the joystick is excellent. Two switches 
on the bottom of the joystick give you 
the option of enabling or disabling 
either the horizontal or vertical spring- 
assisted centering. There are also two 
levers that allow adjusting of the zero 
centering point of both controls. The 
cord and connector are heavy duty and 
well-finished. 

For those times when business activ- 
ities get pushed onto the back burner, 
the A2D Joystick will put you in control 
of your recreational program. 

(Cinsoft, 2235 Losantiville, Cincinnati, OH 
45237, $29.95) 


— Bruce Rothermel 


software that is self-starting and self- 
instructing. BDL Health meets both 
these requirements. You are prompted 
through the program in an easygoing 
way, which should bolster the confi- 
dence of the neophyte. 

There's room for 9,999 records. The 
records are kept for individual members 
of the family. Categories of health 
activities include: office visits, hospital- 
izations, other health occurrences, 
medications, tests, surgery, treatments 
and complete medical history. Entries 
are stored in a logical manner for future 
use. There are valuable functions such 
as the logging of prescriptions and other 
medicines, and possible reactions you 
may have had. These can be flagged so 
they can be retrieved in a search for 
allergic responses. 

I was able to move among the various 
choices with ease. I found it easy to 
operate the program before reading all 
of the documentation. The documenta- 
tion is as well-written as the program, 
so don't neglect it, but you really won't 
need it. 

There is provision to produce a blank 
form to take with you to an office visit, 
so the needed data such as blood pres- 
sure, temperature and diagnosis can be 
written down. I wish I had such a record 
of past office visits! 

With the proper information, this 
program can be a valuable tool to help 
organize information about your fam- 
ily's health, which can be of great value 
to you and your physician. 


(BDL Homeware, 2509 N. Campbell 
Avenue, #328, Tucson, AZ 85719, 602-577- 
1435, $39.95) 


— Howard Lee Ball 
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Software 100/200 


C-Bug — A Good 
Debugger for the 
BASIC Programmer 


C-Bug is a programming aid that can 
be of great help in debugging or mod- 
ifying large BASIC programs. It is simple 
to use and does its job well. Normally 
when you are trying to debug a BASIC 
program, various PRINT statements 
have to be put in the program to see its 
progress. C-Bug lets you print out or 
display the contents of every variable 
with but a single CALL command. This 
is helpful because the CRLL is easier to 
edit in than a PRINT statement with a 
long list of variables, and also because 
C-Bug's thoroughness in listing every 
variable in use may show one you have 
overlooked. 

The output of C- Bug, which lists the 
line number where called and the var- 
iable contents line by line, may be on 
paper or on the screen. 

C-Bug is shipped on a noncopy- 
protected cassette with a user's guide. 
You start by running a simple BASIC 
program, BUGLDR, from tape; it leads 
you step by step through the process of 
loading the machine language program 
C-Bug into the Model 100. Queue 
Software provides the capability of 
relocating C- Bug to any desired region 
of memory, which allows it to coexist 
with other machine language programs. 

BUGLDR gets its input from a sec- 
ond tape file called BUGASC.DO and 
produces executable code in RAM (670 
bytes) as well as а CO file (C-BUG.CO, 
677 bytes), if desired. BUGLDR is fast 
— it uses machine language as well as 
BASIC to quickly perform the relocation 
and checksum calculation. It uses some 
1,500 bytes, but may be cleared from 
memory after RAM:C-BUG.CO has been 
created. 

The four pages of documentation are 
clear, straightforward and thorough. 
Examples are given that illustrate every 
possible aspect of C- Bug. 

I have only a few minor complaints 
with the documentation. It wouldn't 
hurt if the manual were to add that C- 
Bug goes wild with dimensioned varia- 
bles, listing every possible element in the 
array. Ап array dimensioned as, say, 
DIM 8(4,4,4) causes C-Bug to pour 
out 125 lines showing the values of all 
125 elements, from Я(0,0,0) to 





R(4,4,4). This may make C-Bug un- 
usable for programs containing many 
arrays. Also, the BREAK key does not 
stop C-Bug during the 125-line print- 
out. 

Finally, where string variables have 
been used, the exact contents of the 
variable are sent unfiltered to the 
screen. Thus, if a string contains a 
CHRS(7) а beep is produced, while a 
CHR$(12) homes the cursor. Control 
and escape codes could wreak havoc on 
a printer whenever C- Bug is invoked. 

No phone number is given in the 
manual, but a product as simple and 
straightforward as C- Bug, with its good 
documentation, does not really require 
telephone support. 

If you do a lot of BASIC program- 
ming, C-Bug will be a big help. It is a 
good buy at $19.95. 


(Queue Software Systems, 4528 Belleview, 
Suite 210, Kansas City, MO 64111, $19.95) 


— Carl Oppedahl 





Software 


1000/1200/3000 





Proteus — The Idea 
Processor 


Proteus, first of all, is not a word 
processor. It is a program that offers the 
latest techniques in pre-writing. In fact, 
it forces you to use them. You could 
achieve the same results with any word 
processor, a freshman process text on 
composition and a lot of self-discipline. 

Upon booting the program it invites 
you to name the current session, then 
gives you a main menu. Your writing 
choices are freewriting/ looping, listing, 
five W’s and cubing. From anywhere in 
the program you can use the up-arrow 
key to get to a “return to the main 
menu” prompt. Proteus is menu driven 
and easy to use once you get past the 
frustration of what it won’t let you do. 

Freewriting means just that — write 
as fast as you can; do not worry about 
spelling and punctuation — just get 
everything down on paper. (Remember, 
this is pre-writing. The actual writing 
comes later, when you rewrite.) Proteus 
helps you by typing everything in cap- 
ital letters and by refusing to let you 
back up. 

The program seems to miss the point 
of looping (which is to write for several 
short periods about the same idea and 
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continue to loop back to the idea). All 
the other choices are what their names 
suggest. There is a help file that provides 
a simple explanation and an example of 
each option. 

There is no way, within Proteus itself, 
to manipulate text. Proteus would be 
more beneficial if it had a few of the 
features of a basic word processor. You 
can, however, convert a Proteus session 
to an ASCII file for use with your own 
word processor. Then, instead of a file 
with text in uppercase, you have text in 
all lowercase, complete with typos, 
misspellings, outrageous punctuation 
and those initial awkward phrases. But 
you do have ideas, and they are saved 
on a disk. At this point, you are ready 
to begin writing. 

Proteus will interface with existing 
word processors sold by Tandy, includ- 
ing Desk Mate. 


(Research Design Associates Inc., P.O. Box 
848, Stony Brook, NY 11790, 516-928-5700, 
$59.95. Radio Shack Express Order System 
catalog number 90-598) 


— Millard Dunn 





Hardware 


Pro-Tech-Tor — 
Electrical Outlet 
with a Plus 


The Pro-Tech-Tor does just what its 
name implies. It’s an excellent guard 
against electrical damage to your valu- 
able electronic equipment. The outlet 
center, which has six grounded, 15-amp 
outlets, is equipped with a transient 
voltage surge supressor and a 125-volt, 
15-amp circuit breaker. 

The Pro-Tech-Tor has an LED 
grounded outlet indicator, and a lighted 
on/ off switch that enables you to cut the 
power to your connected equipment 
without unplugging the suppressor or 
the equipment. 

The center is housed in a *computer 
beige" epoxy finished aluminum case, 
has a six-foot cord, plugs directly into 
any 120-volt grounded outlet and has a 
two-year warranty. 


(Northeast Peripherals, Inc., R.D. #1, Box 


44, Somerset, NJ 08873, 800-526-2396, 
$24.95) 


— Sue Rodgers 
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“by PCM, examined by our magazine staff and ` 
“approved for the PCM Seal of Certification, your | 

|, assurance that we have seen the product and һауе ` 
ascertained that it is what it purports to be. This 


, month. ihe. Seale of Certification has been issued to: n 





Ballyhoo, an interactive fiction 
game where you explore a circus 
lot while trying not to be caught 
by a lurking kidnapper. Includes 
program disk and circus para- 
phernalia. Requires Tandy 1000, 
1200 or 3000. Infocom, 125 Cam- 
bridge Park Drive, Cambridge, 
MA 02140, $39.95. 


The BASIC Handbook, Third 
Edition, encylopedia of the BASIC 
programming language by David 
A. Lein. Reference tool for con- 
verting between different dialects 
of BASIC. CompuSoft Publish- 
ing, 535 Broadway, Dept. 12, El 
Cajon, CA 92021-5463, $24.95. 


CPYAT2PC, a copy utility that 
allows you to copy onto double- 
density disks with a high-density 
disk drive. Requires Tandy 3000. 
Microbridge Computers Interna- 
tional Inc., 655 Sky Way, Suite 
125, San Carlos, CA 94070, 
(415)593-8777, $79. 


Digiware Graphics Utility, a gra- 
phics plotting utility designed for 
use with digitizers, Requires 
Tandy 1000, 1200 or 3000 and 
digitizer. Computer Mathware, 
P.O. Box 1327, Princeton, NJ 
80540, (609)924-6582, $300. 


DOS Helper, online reference 
system for MS-DOS. Requires 
Tandy 1000, 1200 or 3000. Aristo 
Software, 16811 El Camino Real, 
Suite 213, Houston, TX 77058, 
(713)480-6288, $35. 


Filebase, simplified database 
management tool. Requires 
Tandy 1000, 1200 or 3000. 
EWDP Software Inc., P.O. Box 
40283, Indianapolis, IN 46240, 
(317)872-8799, $125. 


Forecast!, helps teach the science 
of meterology. Given current 
meterogical data, it helps predict 
the weather. Requires Tandy 
1000, 1200 or 3000. CBS Soft- 
ware Inc., Greenwich, CT 06863, 
$49.95. 


W By awarding a Seal, the magazine certifies the ` 
program does exist, but this does not constitute any ` 
Кү of satisfaction. As soon as possible, these ` 








LapCoder, a text compression 
program for the Tandy 100 and 
200. Mu-Psi Computer Consult- 
ing, 1010 Turquoise Street, Suite 
250, San Diego, CA 92109, 
(619)488-2350. $27.95 plus $2 
S/H. 


LCdraw, a graphics editor for the 
Tandy 100. Requires Tandy 100 
and 24K. Lonestar Software and 
Integrated Circuit Design, 1611 
Palmetto Lane, Kingwood, TX 
77339, (800)835-2246, $49.95. 


Mapware Graphics Software, a 
program for creating profes- 
sional graphics presentations 
incorporating maps. Requires 
Tandy 1000, 1200 or 3000 and 
plotter. Computer Mathware, 
P.O. Box 1327, Princeton, NJ 
80540, (609)924-6582, $500. 


PC LOGO, LOGO programming 
language and tutorial. Requires 
Tandy 1000, 1200 or 3000. Har- 
vard Associates, 260 Beacon 
Street, Somerville, MA 02143, 
$149.95. 


Plans "n Totals III, V, VIII, a 
program for financial planning 
and forecasting. Requires Tandy 
1000, 1200 or 3000. Resource N 
Corporation, 66 Commonwealth 
Avenue, Concord, MA 01742, 
(617)264-4450, III $195; V $395; 
VIII $695. 


Q-DOS, à hard disk files manage- 
ment utility. Requires Tandy 
1000, 1200 or 3000 and hard disk 
drive. Gazelle Systems, 230 N. 
2475 W., Provo, UT 84601, 
(810)377-1288, $29.95. 


The Recipe Writer, maintains 
thousands of recipes which can be 
cross-referenced into any chosen 
categories. Requires Tandy 1000, 
1200 or 3000. At-Your-Service 
Software Inc., 309 W 97th Street, 
New York, NY 10025, (212)866- 
2186, $79. 


fiae or. software items will be forwarded to. 
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* 640K Mandy Upgrade Board 
with Real Time Clock . 


* Serial Interface Board 


Е HIE НИНИН 


. Only $189.95 
Only 49.95 


ж Parallel Interface Board .... Only 29.95 


* Hayes Compatible 
300/1200 Baud 


Deluxe Modem Board .... Only 189.95 


Logitech Mouse - uses standard serial port .... Only $ 99.95 


Logitech Mouse with PC Paint program 
Monitors - Zenith, CGS, Taxan 
Call for details 
Star SG-10 printer 
Teac, Panasonic D.S.D.D. drives 
10 discs in an attractive styrene case 


Deluxe keyboard drawer 3/2" high computer platform 
with sliding keyboard drawer. Ball bearing glides 
and locks. Enamel finish to match your PC 


IBM COMPATIBLE PCX-II 


IBM Compatibility at sensational prices!! 
Starting at only $685.00 
Complete, deluxe 640K system includes 150 watt power supply, 
2 Teac floppies, printer and serial port, 
clock, amber monitor and many other extras. 


$1080.00 
20 meg hard drive - $525.00 
We maintain a library of quality public domain software 
for purchasers of our computer systems — text processor, 


data base manager, spread sheet, communication, 
utilities and entertainment software. Call for details. 


MS-DOS SOFTWARE 


DAC ACCOUNTING - General ledger, receivables, 
payables, inventory. Unbelievable bargain at only .. $69.95 


MARK DATA - Our popular ledger system 
with detailed operating manual. 

DBASE III - Ashton Tate’s powerful database 
management system. 


The Twin - Works exactly like Lotus 1-2-3 
Outstanding value. 


Only $69.95 
$389.00 


$145.00 


VP Planner - Another great 
Lotus LOOK FANGS: oos av os ез» л» сїз» δώ Only $99.95 


CoCo Util II - A valuable utility program that allows you to 
transfer Tandy CoCo disc files to your MS-DOS machine. You 
may also transfer MS-DOS files to a Color Computer disc. Save 
countless hours of typing. ........ New Version $39.95 

or upgrade from Version I $12.95 
including shipping. 


AD 


24001 Alicia Parkway, #207 
Mission Viejo, CA 92691 (714) 768-1551 


SHIPPING: All orders under $100 please add $2 regular, $5 air. All orders over $100 please add 3% regular, 
8% air. California residents please add 6% sales tax. Orders outside the continental U.S., check with us for 
shipping amount; please remit U.S. funds. Software authors — contact us for exciting program marketing 
details. We accept MasterCard and VISA. Distributed in Canada by Kelly Software. 
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Bar Code Listings 










Using 
i b. Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 
When you run BAREAD, it 
asks you to scan the first line 


BAREAD 24 - 
































it 
++ 


of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it’s 
ready for you to scan a line. 
After a line has been success- 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 














BAREAD 2.1 


1000 ' *** Initialize *** 

1010 ON ERROR GOTO 1040 

1020 CLEAR 1000:МАХЕТІ,Е5-2 

10302 GOTO 1050 

1040 IF ERR-5 THEN RESUME NEXT 

1050 ON ERROR GOTO 0 

1960 RUNM "B3OF9" 

1070 OPEN "WAND:" FOR INPUT AS #1 

1080 UC%=-1 

1090 PC$-"0123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
1100 DIM RW$(36) 

1110 ER$(1)="You must scan line 1 first! 


1120 ER$(2)="You've SKIPPED a line!" 
1139 ER$(3)="You've ALREADY SCANNED this 
line!" 

114g ER$(4)2"Code not PCM2/39 format!" 

1150 ER$(5)="Command not applicable here 


1160 ERS$(6)="You cannot skip this line!" 
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1170 ER$(7)="Selected resume file not in 
computer!" 

1180 ' ххх Read Reserved Words List *** 

1190 DATA BEEP,CLEAR,CLOSE,DATA,DEFDBL,D 

EFINT,DEFNG,DEFSTR, ELSE, GOSUB , GOTO 

1200 DATA INKEYS,INPUT,INSTR(,LCOPY,LEFT 

S(,LINE(,LOADM,LPRINT,USING,MAXFILES 

1210 DATA MID$(,NEXT, PEEK, POKE, POWER, PRE 

SET(, PRINT, READ, RESTORE, RETURN , RIGHTS ( 

1220 DATA SOUND, SPACES$(,STRINGS$( , THEN 

1230 FOR 1%=1 TO 36:READ RWS$(1%):NEXT I$ 

1240 ' *** Procedure Begins Неге *** 

1250 CLS:PRINT@44,"PCM Bar Code Program 

Reader v2.1" 

1260 LINE(28,4)-(219,18),1,B:LINE(22,6) - 
(217,165 «LB 

1270 NN$-1 

1280 GOSUB 16609:IF ЕВ%>Й THEN GOSUB 1620 
:GOTO 1289 

1299 IF LL$-0 AND INSTR("YN",IL$)29 THEN 
ER%=5:GOSUB 162%:GOTO 1280 

139g IF LL$-0 THEN ОМ INSTR("ALSR",IL$) 


After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 

Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 


the .DO text file to a normal 


BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LORD^TEST 
.D0^ (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC'S com- 
pressed format (.BA exten- 
sion), you'd type SRVE^TEST^ 
(if the program were named 
TEST). You may then kill the 
-DO file with KILL “TEST.DO”. 






——— MÀ i le 


GOTO 1820,1890,1980,2050 
1310 IF LL$=1295 THEN 1350 
1320 IF LL&<>NN% AND NN%=1 THEN ЕВ%-1:С0 
SUB 1629:GOTO 1280 
1330 IF LL$«NN$ THEN ER&-3:GOSUB 1620:60 
TO 1289 
1340 IF LL$»NN$ AND ММ%>1 THEN ER$-2:GOS 
UB 1629:GOTO 1280 
|. 1359 IL$-RIGHT$(IL$,19) 
1360 IF LL&-1 AND NN%>@ THEN GOSUB 1780 
1370 CL$=CL$+IL$ 
1380 FOR I$-1 TO LEN(CL$) 
1399 CH$-MIDS(CL$,I$,1) 
1400 IF CH$-"$" THEN GOSUB 1519:IF NL 
% THEN 1470 ELSE GOTO 1440 
141g IF CH$-"/" THEN GOSUB 1559:IF NL 
$ THEN 1470 ELSE GOTO 1440 
1420 IF CH$="." THEN UC%=NOT(UC%) :GOT 
0 1450 
1430 IF CH$=>"A" AND CH$«-"Z" AND NOT 
(UC%) THEN CH$=CHRS (ASC(CH$)+32) 
1449 XX$=XX$+CH$:IF RIGHTS (XX$,1)=CHR 








$(13) THEN PRINT42,XX$; :XX$="":UC%=-1 
1450 NEXT 1% 

1460 CL$-"" 

147% PRINT@29@ , SPACES (80); 

1489 IF 11%<>1295 THEN NN%=LL%+1:GOTO 12 
8 

pm "ххх Done www 

1500 CLOSE:CALL 61807! :ΟΤΕΔῈ 500,НІМЕМ:М 
ЕМО 

1510 ' *** Decode Reserved Word *хх 

1520 NL$-0:IF I%>LEN(CLS$)-1 THEN NL%=-1: 
CL$="%":GOTO 1549 

1530 1%=1%+1:CHS$=RW$ (INSTR(PCS$ ,MID$(CLS, 
1%,1))) 

1540 RETURN 

1550 ' *** Decode Hex and Control Charac 
ters www 

1560 NL%=@:IF I%>LEN(CL$)-1 THEN NL$--1: 
CL$-"/":GOTO 1610 

1570 I$-I$41:IF INSTR("/$.",MID$(CL$,IS$, 
1))>@ THEN CH$-MID$(CL$,I$,1):GOTO 1619 
1580 IF I%>LEN(CL$)-1 THEN NL$--1:CL$-RI 
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GHTS(CL$,2):GOTO 1619 

1592 HX$-MIDS(CL$,1$,2) : CHS-CHRS ( CINSTR( 
/"0123456789ABCDEF", LEFT$ (HX$ , 1) )-1)*16+1 
NSTR("0123456789ABCDEF" , RIGHTS (HX$,1))-1 
) 

1600 Т%=1%+1 

1610 RETURN 

1620 ' *** Error Codes www 

11630 SOUND 5999,19:SOUND 8099,19:SOUND 5 
000,10 

1649 PRINT@229- .5*LEN(ER$ (ER%) ) , ERS (ER%) 


165% RETURN 

1669 ' *** Get Code Line www 

167% PRINT@173,"";;PRINT USING "Scan lin 
e ###" NN% 

1680 IF ММ%--1 THEN PRINTQ173,"Scan any 
line":GOTO 1799 

1690 SOUND 500,5 

1700 INPUT#1, IL$:ER%=@ 

1710 FOR 1%-1 TO LEN(IL$) 

1720 IF MID$(IL$,I$,1)-"!" THEN MIDS(ILS 
ὶ 1%, 1ў=" SM 

1739 NEXT I$ 

1740 IF LEN(IL$)<>1 AND LEN(IL$)<>21 THE 
М ER%=4:RETURN 

1750 IF LEN(IL$)-1 THEN LL$=@:RETURN 
1760 LL$-LEFT$(IL$,2):LL$-(INSTR("912345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ" , LEFT$ (LL 
$,1))-1)*36-INSTR("9123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ",RIGHTS$(LL$,1))-1 

1770 RETURN 

1789 ' ххх Open Program File *** 

1799 PNS-LEFTS(IL$,6):IL$-RIGHTS(IL$,LEN 
(IL$)-6) 

1800 OPEN PN$ FOR OUTPUT AS #2 

1819 RETURN 

1820 ' *** Abort ХЭ 
1830 BEEP: BEEP; BEEP 
1840 PRINT@299, "ABORT! 
1859 INPUT#1,AN$ 


Are you sure?"; 


CURCON . BA (FROM PAGE 101) 


lI! 
2 | ЇШЇП 
3 ШШШ M 
ο μμ, 
ο ЇЇ 
ο μμ, 
ο M 
Ομ ΜΗ. 
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1860 IF INSTR("YN",AN$)-0 THEN BEEP:PRIN 
T@251,"Scan 'YES' or 'NO'":GOTO 1859 
1879 PRINT@299, SPACES (89); 

1889 IF AN$-"Y" THEN CLOSE:KILL Р№9+".ро 
":GOTO 1490 ELSE GOTO 1280 

1890 ' *** Skip Line *** 

1900 IF NN$-1 THEN ER%=6:GOSUB 1620:GOTO 
1289 

1910 BEEP:BEEP:BEEP 
1920 PRINT@21Ø, "SKIP! 
1930 INPUT#1, ANS 
1940 IF INSTR("YN",AN$)-U THEN BEEP: PRIN 

T@251,"Scan 'YES' or 'NO'":GOTO 1939 

1959 PRINT@29@ , SPACES (89) ; 

1969 IF ANS="Y" THEN NN$-NN$41 

1970 GOTO 1289 

1980 ' *** Stop ἃ Save *** 

1999 BEEP: BEEP: BEEP 

200) PRINT@297,"STOP δ SAVE! Are you sur 

е?"; 

2919 INPUT&1,AN$ 

2020 ТЕ INSTR("YN",AN$)=@ THEN BEEP: PRIN 

TQ251,"Scan 'YES' or 'NO'":GOTO 2010 

2030 PRINTQ209,SPACES(89); 

2949 IF ANS="Y" THEN 1499 ELSE GOTO 1280 

2059 ' *** Resume *** 

2060 IF ММ%<>1 THEN ER$-5:GOSUB 1629:GOT 

0 1280 

2070 PRINT@254,"Resume Mode"; 

2080 NN%=1:GOSUB 1660 

2999 IF 11%-й0 THEN ER$-5 ELSE IF LL%<>1 

THEN ЕВ%-1 

2100 IF ЕВ%>0 THEN GOSUB 1629:GOTO 2060 

2110 РМ5-МІр5(11,5,3,6) 

2120 ON ERROR GOTO 2140 

2139 OPEN PN$ FOR INPUT AS #2:GOTO 2179 

2140 RESUME 2150 

2150 CLOSE #2 

2169 ER$-7:GOSUB 1620:GOTO 1270 

2170 CLOSE %2:ОРЕМ PN$ FOR APPEND AS #2 

2180 NN$--1:GOTO 1280 


Are you sure?" 





9 | ИИ 
10 [ШШШ 
Ημ. 
12 ΜΙΝΙ 
із ШШШ ШП 
ο μη, 
15 ΤΝ 
16 (ППТ 
1? NOIDA 
18 | ИП 
19 ΙΙΙ 


20 |!!! ШШШ ШШШ 
21 [[ΠΠΠΙΙΙΙΙΙΠΙΙΠΙΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΙ 
22 (ШИТТІ 
23 ΙΙΙ 
24 MINN ЇШЇП ЇЇ 
25 AAA DARAN 
26 ΙΙΙ 
27 |! ШШШ ШШ! 
28 ΙΙΙ 
29 |! ШШШ ШШ 
30 [И ИШ AUAM 
31. [ΙΙΙ 
αμ. 
33 ΙΙΙ 
34 (ППТ 
35 (ШШШ M 
36 | ПИТТ 
з? (ШШШ EUM 
38 MAOIN N NAO O 
39 ΙΙΙ 
μι 
41 JUANA NDA NM 
42. ΙΙΙ 
“3 ΙΙΙ 
44 {AMIN UI 
45 | ШШШ 
6 {ЇЇ ШЇЇ ЇШЇП! 
42 ΛΙΠΗ 
ав ΙΙΙ 
аэ llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


Ui  ω N 


ш CD 





DACO . BA (FROM PAGE 47) 


ο μμ. 
2 | (ШШШ ЇЇ ЇЇ 
3 ЇЇ ШЇЇ ШЇЇ 
μμ. 
5 ПП 
ЦИ 
ο μμ ЇЇ 
в III 
9 ПП ИТТІ 


19 (ППТ 
11 (ППТ 
12 ΤΙΜΗ 
13 |llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
14 | ЇЇ ШЇЇ! 
15 |! ШШШ ШШШ 
16 | ЇЇ ШШШ!!! 
17 (ППТ 
38 QNA IA LM 
19 ΤΙΜΗ 
20 | ППТ 
21 | 
22 ΙΙΙ 
23 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
24 ΙΙΙ 
25 (ШИТТІ 
26 ΙΙΙ 
27 NARNIA UAM 
28 ΙΙΙ 
29 |! ЇШЇН! 
30 | ШШШ! 
31 ΙΙΙ 
32 ΙΙΙ 
33 | ППТ 
34 [ΙΙΙ 
35 | ШИТТІ 
36 | ПП AAA 
37 |ІІІ 
3M 0 MO ТАТАТ 
39 |І ШШШ DM 
42 (ППТ 
ал ШШШ ШЇП 
42. ΙΙΙ 
аз ШШШ ШШШ ШЇЇ! 
44 ЇЇ ТЇШЇЇ ЇЙ ЇЇ! 
45 (ППТ ЇЇ 
“6 (ППТ 
μμ, 
ав ANION OQ CA AY 
43 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIW 
5ο ЇЇ AA AUR UU UM 
ΗΕ μμ. 
52 |ІІІ 


м 


= © 





м 











ІШІЛІ ШШ ҮШІЛІ 


Abort Skip Line Stop & Save 





MM ІШІ 


Resume Yes NO 


ΙΙΙ 3 
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53 |ІІІ 
54 (ПИТТ 
55 | ШШШ ШШШ (ШШШ 
56 ΙΙΙ 
57 ΙΙΙ 
58 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
59 ШШШ ШШШ ШШШ 
ве ΙΙΙ 
οι ADMONO ШШШ 
62 [|| Т\Ш ШИШ! 
63 [ΙΙΙ 
ва [ΙΙΙ 
65 (ПИТТ 
66 ΤΙΝ 
6? (ПИТТ 
68 [|1ΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΙΠΠΠΙΙ 
вэ |М 
29 (ПИТТ 
23. ΙΙΙ 
22 (ПИТТ 
23 ΤΙΝ 
24 (ПИТТ 
25 ΤΙΝ 
ЗІШШІШШШІІІШІШІШІШ 
22 (ИИ ТД ШІ 
28 |! ШШШ 
?э |! 
80 [MANNA NUI 
81 (ПИТТ 
82 ΙΙΙ 
ο μια 
84 [ΙΙΙ 
в [ΙΙΙ 
86 ΙΙΙ 
в? | ШШШ! 
вв |! ШШШ AA ИК 
EE ШШШ ШШШ! 
59 [NARNIA MUN M 
91 ΙΙΙ 
92 |Т 
эз [ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ{ΠΠΠΠΠΠΠΠΠΠΠ!ΠΠΠΠΠΠΠΠΠΠΙΠΙΙΠΠΙ 
94 ЇЇ A ИТИИ 
95 (ПИТТ 
μμ. 
2? (ПП 
эв | 
ЕРЕ μμ. 
тео MANARE 
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= ® 





о) 


(л 


© 





A 


τοι (ШШ ШИШИШИ! 
102 (Т\Ш 
103 {ШИШИШИ 
104 | ЇЇ ШШШ! 
105 ΙΙΙ 
106 (ШЇЇ ШШ 
1@7 (ЇШЇП 
108 | ШИШ! 
109 ΙΙΙ 
110 (ПП 
111 ΙΙΙ 
112 ΙΙΙ 
113 |ІІІ 
114 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
115 ΙΙΙ 
116 [AMINO AONE Ш\\! 
112 ΙΙΙ 
118 {ЇЇ O 
119 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
120 MUI INYO ШШШ! 
121 ΙΙΙ 
122 | ЇЇ ШШШ ШЇЇ! 
123 {ШШШ ШШШ 
124 | ППТ 
125 [AINE AUD 
126 |ТІЛ 
122 |ІІІ 
128 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
129 ΙΙΙ 
130 AANA OONO TI T 
131 [AAA AU MM 
132 [AAA NUI AA 
133 [|lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
134 [|ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΙΙΠΠΙΠΙ 
135 [ΠΠΠΠΠΠΙΙΠΠΠΠΠΠΠΠΙΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΙΠΙ 
136 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
137 [|ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΠΙΙΠΙΠΙΙ 
138 | ППТ 
139 | ШИПИН 
140 ΙΙΙ 
141 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
142 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
143 | ПИТТ 
144 ΙΙΙ 
145 |ІІІ 
146 (ПИТТ 
raa L T A D O D DI L 
148 A EUER 


149 (ШІП 
150 |ІІІ ПОНИШТИ ИТИ 
151 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
152 |}! ШШШ ИИТИИ 
153 (ПИТТ 
154 |} ШШШ 0 N 
155 ΙΙΙ 
156 ΙΙΙ 
152 ΙΙΙ 
158 ППТ 
159 ΙΙΙ 
162 (ШИПИН 
161 ΙΙΙ 
162 ΙΙΙ 
163 ΙΙΙ 
164 ΙΙΙ 
165 ПИТТ 
166 ΙΙΙ 
162 ППТ 
168 MAON 
169 NNOD OUO 
129 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
121 ΙΙΙ 
172 ΙΙΙ 
123 | ШШШ ЇЇ 
124 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
125 ||! ШШ ШЇЇ 
126 | ПИТТ 
122 | ШИШ 
178 |! ЇЇ (ШЇЇ 
179 L ИШПИ 
189 ΙΙΙ 
181 ΙΙΙ 
182 |!!! 
183 | ПИ 








DRTMG . BR (FROM PAGE 47) 


1 ΙΙΙ 
2 [IANUE LN 
3 |Т 


4 ЇЙЇ NNNM 
БП 
μμ, 
2 ЇЇ ЇЇ ШШШ 
в IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
9 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
10 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ο μμ. 
12 ОПИТИ OMN I 
ee I T O O 
14 | ШЇЇ! 
μη, 
36 | ЇШЇП ПШПШ 
17 {ЇЇ ШШШ 
xe ЇЇ ЇЇ ШШШ 
19 DIDUD OON DM N 
29 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIN 
21 ΙΙΙ 
22 ||! ЇЇ ЇЙЇ ШЇЇ ЇЇ ШИ 
23 | ЇЇ! ШШШ 
24 (ЇЇ! ШШШ ШШШ (ТЇЇ 
25 (ШИТТІ 
26 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
27 | ШШШ ШШШ ШЇ! 
28 | ШШШ! 
29 (ППТ 
30 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
зі ΙΙΙ 
32 [[ΠΙΙΙΠΠΙΙΠΙΙΠΗΙΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ} 
33 ΤΝ 
34 ΙΙΙ) 
35 ΙΙΙ 
36 (ППТ 
32 | UMNO ИТИИ ИТИИ 
38 [ШШШ ШШШ! 
39 ΙΙΙ 
o. (ЇШЇП! 
41 | ЇЇ IHNEN 
22 | ЇШЇП EL UM 
аз (ППТ 
44 | ПИТТ ІЕ 
а5 ΙΙΙ 
ав ΤΙΜΗ 





ΙΙ ΙΙ ШШ 


Rbort Skip Line Stop & Save 


ІШІ ШШ ІШІПТІ | 


Resume Yes No 
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4; (ПИТТ 
48 | ППТ M T 
49 ΙΙΙ 
52 [ΙΙΙ 
51 MARIAM 
52 ΙΙΙ 
53 |ІІІ 
54 (|Т 
55 (ИП 
56 ΜΙΝΙ 
52 ANAUE N 
58 [ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΙΠΠΙ 
59 ANILLO 
μμ μμ, 
μμ, 
ο Μι, 
63 ΠΠ 
84 QNIN HO DN 
65 ΙΙΙ 
66 {ЇЇ MN MAAN A ШЇ 
6? lI 
ο μμ. 
η ANNAM 
29 [MANNA UE LM 
μμ, 
22 ΙΙΙ 
23 ΙΙΙ 
24 ΙΙΙ 
25 | ПИТТ 
26 [ΠΠΙΠΠΙΙΙΠΙΠΠΙΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠ]ΠΠΠΠΠΠ1ΠΠ} 
zaa N LV IA M 
28 lI!!! 
73 Ill! 
вг (ТИПТІ 
81 | APUL 
82 (ИИ 
83 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
84 ΙΙΙ 
85 ΙΙΙ 
вв (ПИТТ 
в? QUANTA LM 
88 [ШШШ ІН 
89 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
90 | ИП 
αμ μμ 
32. |ТІЛ 
η, 
94 [ΙΙΙ 
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95 MANNI RA UU 
96 ΙΙΙ! 
2? JUANA RUNE 
эв ПП 
ээ (ШШШ! 
19ο |! 
τοι ΙΙΙ 
102 ΙΒΜ 
103 ШШШ ШШШ 
104 || 
1@5 |! 
1@6 (ППТ 
107 ΙΙΙ 
198 ΙΙΙ 
109 |ІІІ 
110 [MANTEAU AUN 
111 (ИТІН 
112 ΙΒ ΙΙΙ 
113 ЇШЇП ШЇЇ 
114 ШШ OLIM 
115 {ЇШЇП 
116 | ЇЇ ШЇЇ ЇШЇП ЇЇ ЇЇ! 
112 {ЇШЇП 
118 (ППТ ШЇ 
119 MIN AEA 
120 [||1ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠ} 
121 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
122 || 
123 | ШЇЇ ЇШЇП! 
124 | ШШШ N 
125 ΤΙΝ 
126 (ППТ 
122 ΙΙΙ 
128 ΤΙΝ 
129 |ТІЛ 
130 |! 
131 ΙΙΙ 
132 ОООО 
133 UAM AI DM 
134 ΤΝ 
135 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
136 |ТІЛ 
132 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
138 (MNO NN 
ο UA M 
140 ΙΙΙ 
141 (NINN O T T T 
142 ΙΙΙ 



















ALABAMA KENTUCKY Mount Orab Mount Orab Radio Shack 
Birmingham Jefferson News Co. Georgetown | Goodwin Electronics Toledo Leo's 
Florence Anderson News Co. Louisville Hawley-Cooke Bookstores OKLAHOMA 
Greenville M&B Electronics/Radio Shack Prospect Faisoft, Inc. Oklahoma 
Madison Madison Books LOUISIANA City Merit Computers 
ARKANSAS Crowley Acadiana News OREGON 
Fayetville Vaughn Electronics/Radio Shack Gretna Computer Supply Store Portland Fifth Avenue News 
ARIZONA Slidell Radio Shack Woodburn Pioneer Electronics 
Phoenix Computer Pro MASSACHUSETTS PENNSYLVANIA 
Tri-Tek Littleton Computer Plus Philadelphia Newsy 
Sierra Vista Livingston's Books Marlboro Radio Shack Phoenixville Stevens’ Radio Shack 
Tempe Computer Library MICHIGAN Wind Gap Micro World 
Tucson Anderson News Co. Lowell Curt’s Home & Sound Arcade RHODE ISLAND 
CALIFORNIA Muskegon The 8-Bit Comer Newport Kelly's Variety 
Citrus Heights — Software Plus Rochester Rochester Book Center TENNESSEE 
Elk Grove Micro Mainframe Sterling Heights Programs, Inc Knoxville Anderson News Co. 
Half Moon Bay — Strawflower Electronics Software City Memphis Computer Center 
псе Software Galeria Wyoming Gerry's Book Co. Nashville Mosko's Book Store 
οἱ MISSOURI Smyrna Delker Electronics, Inc 
Hollywood Levity Distributors Independence Digital Enterprises, Inc bias 
Santa Rosa Sawyer's News St. Louis Software Center қ 
Sunnyvale Computer Literacy Bay City Impulse Computers 
COLORADO NEBRASKA Ft. Worth A & A Intemational 
Uncoln Hobby Town 
Salida Radio Shack VIRGINIA 
DELAWARE NEW HAMPSHIRE Alexandria Alonso Book & Period 
Middletown Delmar Co. YONG «μυ c хәлен са Norfolk LO Computer 
Wilmington Normar inc.—The Smoke Shop NEW JERSEY Wytheville Wytheville Electronics 
FLORIDA наана: ТАС Croviptich Senice “Kennewick” Satelite IV Specialist 
Boca Raton Software, Software, Inc. А К Kennewick tellite ipecialists 
Davie Software Plus More Pennsville Dave's Electronic Radio Shack WEST VIRGINIA 
Ft. Lauderdale — Software Connection NEW MEXICO Lesage Ploneer Technology 
N. Miami Alamogardo Мем Horizons Computer Systems WISCONSIN 
Beach Almar Bookstore Albuquerque News and Bookstore Ladysmith Electronics, Ete 
Orlando Book Mania Page One Newsstand Madison 20th Century Books 
Panama City Computer ӘБ Group NEW YORK ARGENTINA 
Pensacola Anderson News Co. Fredonia On Line: Computer Access Center j 
Tallahassee Anderson News Co Hudson Falls G.A. West & Co. Cordoba Informatico Y Telecomunicaciones 
GEORGIA NORTH CAROLINA CANADA: 
Atlanta Guild News Agency Cory News Center in Cary Village ALBERTA 
ILLINOIS a i Sylva Total Data Systems sra MA Lu ge ree Services 
Chicago has. Levy Distr. NORTH DAKOTA 
Kroch's & Brentano's Fargo Computer Associates Kelly Software Distributors 
Jackson Street оно BRITISH COLUMBIA 
Kroch's & Brentano's Blanchester JR Computer Control Sidney Sidney Electronics 
Basse he Cincinnati ^ — Cinsoft NOVA SCOTIA 
Бурчту КАЛ» id Dayton Huber Heights Book & Card Halifax Atlantic News 
Oakbrook Kroch's δι Brentano's Girard Girard Book & News QUEBEC 
INDIANA Kenton TW. Hogan & Assoc... Inc. LoSalle Messageries De Presse Benjamin 
Highland Computer Health Consultants 
Scottsburg Radio Shack of Scottsburg 
IOWA 
Ao Myers V & Stereo Repair Also available at these selected bookstores: B. Dalton, Pickwick Books, Encore Books, 
KANSAS Barnes & Noble, Little Professors, Tower Book & Records, Kroch's & Brentano's, and 
Wichita Lloyd's Radio Community Newscenters. 
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TANDY 1000 
Howard Medical Computers 

















*pbj Multifunction Board $276 


« 512 K RAM included List $359.95 ` 
е Serial Port for modem or printer MFB-1000 | 
e Battery powered real time clock/calendar E NL t 8: 
е RAM disk program included with 256K $269 | 
е Acts like hard drive only faster with 128K $249 
* b: 5 | | 

p^j X Ram Card with 256K $249 
е Add additional memory to your 1000 up to 2 megabytes List $299.95 
е Breaks the 640K barrier Add $49 for each 


ο Includes diagnostic package ἃ RAM disk program 


Bank of 256K 
*Zenith Green Monitor $6759 


е 12" Zenith 123A Green Screen is easy on the eyes Was $1 49 
е High resolution: 640 dots x 200 dots ^i i 

е 15 MHz band width * non glare screen $7 shipping 
е Composite video monochrome 

e 30 day warranty at over 1200 Zenith repair locations 


*Epson LX-80 Printer КСС 6240 


“ Near letter quality or 100 cps draft mode e о» $7 shipping 
е Friction feed standard ($30 tractor option) С 


9 
е Bidirectional with 1K graphics buffer © 











Payrol/BAS™ $149 


e No tables to enter. Automatically calculates Federal, Com plete 
FICA, State and up to 5 individual deductions inni | 

е Handles 500 employees with hard drive ог (40) employees $7 shipping 
with one floppy drive plan weekly 

е User friendly, easy to install Send for FREE Reports Guide 

е Prints checks, 941 summary апа W-2's or $5 for Demo Disc 






1690 Elston, Chicago, IL 60622 (800) 443-1444 ones (312) 278-1440 nd 


*Howard Medical offers a 30-day return guarantee on all hardware we sell. Return equipment to us within 30 days for a 
refund if you are unsatisfied for any reason. 





Top-of-the-line: Open Access’ 
NOW ONLY $395* 


OPEN ACCESS 
Comparison Chart 


анн | | 
mem Га |“| 221г; 
σπα 


Open Access has sold almost 929 copies overseas, and тапу more іп 
the U.S. thanks to Radio Shack? With one of the most powerful 
Relational Databases around, and just about all the additional features 
you could want, it's no wonder. Just the Goal Seeking feature 
in the Spreadsheet alone should make Open Access 
your customer's #1 choice. 

(We're even written in 11 languages with exact file transfer.) 




















Spreadsheet 





Time Management 


Available through your exclusive Express Order Software System 
90-014 Tandy2000 + 90-0247 Tandy1200 • 90-0437 Tandy1000 


The product s exceptional. The price extraordinary. Can you really afford to compromise any longer? 


me 
фм 


— SOFTWARE PRODUCTS INTERNATIONAL 


10240 Sorrento Valley Road * San Diego, CA 92121 


Open Access and 9 are registered trademarks of Software Products International, Inc; Lotus 1-2-3 and Symphony are registered trademarks of Lotus Development Corp.; 
Framework is a trademark of Ashton-Tate; Smart System is a registered trademark of Innovative Software; Tandy 1000/1200/2000 are trademarks of Radio Shack, a division of Tandy Corp. 





All on опе ROM. Truly the finest four programs 

available for the Model 100 — guaranteed. 

Try it for 30 days. If you aren't blown away by the 
excellence return it for a full refund. 





The four best programs for the Model 
100 ай оп one ROM, 32K of power with- 
out using any RAM. for. program stor- 
age. This is the PCSG Snap-In ROM 
that just presses easily into the little 
ROM socket in the compartment on the 
back. You access the four right from the 

main menu like built-ins. 
| Write ROM — the definitive word 
processor for the Model 100. Function 
key formatting or dot commands, 
Search and replace. Library feature — 


| inserts words, phrases or whole docu- 


ments into text from just a code. MAP 
lets you see a picture of your document. 


| In all there are 60 features and func- 
"| tions. No one сап claim faster operation. 


FORM lets you create interactive forms 
with on-screen prompts that you can 
answer from the keyboard. Nothing else 
for the Model 100 compares ‘with the 
features of Write ROM. Exactly the 
same as the Write ROM sold as а single 
program. Infoworld says it “makes the 
Model 100 a viable writing unit ... sur- 


passed our highest expectations for 
quality and clarity.” 


Lucid Spreadsheet: This is the one 


PICO magazine says “blows Multiplan 
right out of the socket” and Infoworld 
performance rated as’ “excellent” and 
said "makes the Model 100 compute.” 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K ona desktop. Program gener- 
ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func- 
tion key control. It’s fast, recalculates 
like lightning. No feature has been taken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. You can do every- 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input screens as simply as typing into 
TEXT. You are not limited by size; you 
сап have as large an input.screen as you 
wish: Prints out reports or forms, get- 
ting information from as many files as 


(214) 351-0564 


you like, Complete math between fields. 
Total interface with Lucid worksheets. 

Outliner: Does everything that Think- 
tank does on a PC but a whole lot better. 
Includes а Sort for your headlines. Lets 
you have headlines of up to 240 charac- 
ters. Has cloning, hoisting and sideways 
scroll up to 250 characters: Like Lucid, 
this one sets a new Standard for outlin- 
ers. This is the way to plan and organize 
your projects. 


Present Lucid and Write ROM | 


owners can upgrade for $150. If you 
have both it’s $125. 

As usual PCSG sells the Super КОМ. | 
on a thirty day guarantee. If for any 
reason you are not satisfied, simply | 
return it for a full refund. 

We are ‘excited about this product. 
Super КОМ gives the Model 100 the 
true power ofa desktop. No other multi- 
program ROM has software that com- 
pares. But don’t take our word for it. We 
invite you to make that comparison | 
yourself. Priced at $199.95 on Snap-In 
ROM. 


Got stuck with somebody elses multi-ROM? 
We'll upgrade it for.$ 150, 


11035 Harry Hines Blvd., #206, Dallas, TX 75229. 
MC, Visa, American Express, Check, or C.O.D. 





